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2s THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 

30 NOTICE AND SHOULD BE A COMMITMENT BY DIGITAL 

31 EQUIPMENT CORPORATION. ance AL EQUI CORPORATI TION 5 

ES NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 

34 THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS. F URNISHED UNDER A 

35 LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 

# OF SUCH LICENSE. 

32 DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 

35 THE USE 0 OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 

4 NOT SUPPLIED BY DIGITAL. 
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1.0 ABSTRACT 


WORST PA 
Seite Pe TREE A 


DETEL..s0N LOGIC IS CHECKED BY SOFTWARE 


AFTER A SUCCESSFUL RUN (WITH NO ERRORS) OF PART 2, THE DRIVE 
IS READY FOR PART 3 OF THE DRIVE DIAGNOSTICS. 


TESTING IS BASED ON A HIERARCHY APPROACH STARTING WITH 
BASIC LOGIC TESTS AND PROCEEDING THRU DYNAMIC TESTING. THE 
TESTS WILL BE KEPT SMALL TO FACILITATE SCOPING LOOPS. 
I a I J RR. PASS, 


Y LEAVE THE _— IN THE DISK CARTRIDGE IN AN 
UNDETERMINED STATE. 


2.0 REQUIREMENTS 
2.1 HARDWARE 
THE FOLLOWING HARDWARE IS REQUIRED TO RUN THE DISK DIAGNOSTIC: 


CONSOLE. TELETYPE 


“L kbd 
See dora See 
1 TO 8 RKO DRIVES 
ITHER ae OR P CL9CK. i B.A TIMING 
Est WILL BE SED. 
GINNING OF THE TESTS WILL "EONE TR hae 


2. THE PROGRAM CAN WORK OFF EITHER FORMATTED OR 
NON-FORMATTED PACKS. 


é.2 PRELIMINARY TESTING & PROGRAMS 


M3 sa piaKLEse CONTROLLER DIAGNOSTICS (ALL PARTS) SHOULD 
FIRST RUN SUCCESSFULLY FOLLOWED BY THE RKO& DRIVE DIAGNOSTIC- PART 1. 
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3.0 


3.1 


3.2 


3.3 





PROGRAM CONSIDERATIONS 


PDP-11 FAMILY COMPATIBILITY 


THIS PROGRAM CAN BE USED BY THE PDP-11/04,05, 10,20, 
34,38,40,45,50, & 70. 


IT IS COMPATASLE WITH THE LSI- 
THE RKOG ONLY IF THE DRIVE CONTROLLER FOR THE LSI-11 IS 
DESIGNED TO BE DIAGNOSTICALLY COMPATABLE WITH THE RK611. 





XXDP 
re PROGRAM CAN BE CHAINED BY XXDP & WILL NOT OVERLAY THE 


CHAIN MODE OPERATION (MONITOR) 
NPUT DIALOGUE IS , 
: THE Buss abORESS & On INTERRUPT VECTOR IS 


a, oF Then Drives N THE DRIVE PRESENT’ CONDITION WILL 


NOTE: THE DRIVE PRESENT CONDITION IS: 
g: enec) PRT SELECTED 
D. DRIVE READY INDICATOR ON 
DUMP MODE OPERATION (MANUAL) 


2° Orive go cm oe, TESTE TESTED, BU A A Ac 2 OPERATOR IS FIRST GIVEN 


N DRO WITH A SCRATCH 
PACK 2 TYPES Magee By Bg 


ACT/APT 

THIS PROGRAM IS ACT COPATIIE. oh IS AP 
COMPATABLE TO THE EXTENT THAT APT HOOK WILL BE IN THE 
PROGRAM & WILL WORK THRU THE UPTON INTERFACE’. 


FOR OTHER INTERFACES, APT MAY ONLY LOAD 8 START THE PROGRAM. 
I.£. LOAD & DUMP MODE. 


AUTOMATIC MODE (MONITOR) 
1. THE INPUT DIALOGUE IS BYPASSED. © 













1 INSTRUCTION SET AND CAN TEST 
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2. THE BUSS ADDRESS & CONTROLLER INTERRUPT VECTOR IS 


200 
201 DEFAULTED. 
e0e ALL_DRIVES IN THE "DRIVE PRESENT’ CONDITION WILL BE 
spe TESTED. 
A NOTE: THE DRIVE PRESENT CONDITION IS: 
207 a. ee oS rely LpApED 
208 B. CORRECT SELEC 
209 C. RITE LOCK DISABLED 
sie D. DRIVE READY INDICATOR ON 
1 
13 DUMP MODE (MANUAL): INPUT DIALOGUE IF STARTED FROM 220. 
eis 
516 3.3.1 APT ETABLE DEFINITIONS 
218 THE FOLLOWING DEFINITIONS ARE VALID FOR SPECIFYING APT ENVIPONMENTAL 
213 TABLE (ETABLE) ENTRIES. VIA RUNNING THE APT UTILITY PROGRAM “TSP”: 


ERTS TeA ESOT SRR R A EERO ae NOR ERR 


1. SOFT ENVIRONMENT : 
=1 IF APT SCRIPT MODE 
=0 IF STANDALONE MODE 


2. ENVIRO :BY 
= TPETRRLE Does DOES SEZING 
ret Bae eBay cert F Sve rox 
BITS =1 SS CONSOLE OUTPUT 
= ALO C OUTPUT 
BITS 4-0 NO 
3 SHITCH 1 so (SOFTHARE. SWITCH REGISTER) 
IF ENV iar vn NT MODE BIT 7 (SIZING BLD) JS SET, 10. 1, THE SOPTHARE 
SWIT ReAiSTER Hl ‘ob DHICH ONE TS USED” ALL BITS 


I 
Gee INeD iy SECTIONS 4.3 4.3 8 4.4 (SWITCH REGISTER OPTIONS) MAY USED 
IN per Sch ier nOBE PROAL ONE Hope BIT 14 (LOOP ON TEST) MUST ALWAYS 


4. SWITCH 2 (USER SWITCH REGISTER) 
not Use6 
S. CPU OPTIONS: 
NOT USED 
6. tae TYPES 1-4 AND MAX MEMORY ADDRESSES 
7. INTERRUPT VECTOR 1 


USED WHEN ENVIRONMENT MODE BIT 7=1. DEFAULT = 210 
8. BUS PRIORITY 1: 


2 
Pee cea ere ds 


my 
es 
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3.4 


3.5 


3.6 


3.7 


3.8 


USED WHEN ENVIRONMENT MODE BIT 7=1. DEFAULT = 5 


IN T VECTOR e: 
NOT USED 


10. BUS PRIORITY 2: 
NOT USED ir 
ll. S: 
BCEB GREN ENVIRONMENT MODE BIT 7 = 1. DEFAULT = 177440 


BEE BST USER, esc BEI ol 


13. COND LS RERRIP TOR WORDS : 
wv 


14. DEVICE_DESCRIPTOR CODES (IN WORDS): 
NOT USED 


DUAL ACCESS 

THIS PROGRAM WILL NOT TEST OR SUPPORT DUAL-ACCESS. A DRIVE 
EQUIPED WITH DUAL ACCESS MUST BE SWITCHED TD THE PORT UNDER 
TEST TO PREVENT CONTENTION WITH THE OTHER PORT. 
DUAL ACCESS TESTS WILL BE INCORPORATED IN A SEPARATE PROGRAM 
AT A LATER DATE. 
MEMORY MANAGEMENT 


MEMORY MANAGEMENT NOT USED 


PARITY CHECK ENABLED 


fe T MORY PARITY C a OPTION IS AVAILABLE ON THE SYSTEM, 
WILL RUN WITH MEMORY CHECK ENABLED. 


BAD SECTOR 
Ine ORT oN CORTANED Of ON CYLINDER 10, HEAD De. ma 
ERRORS DUE TO BAD SE TORS TRACKS WILL BE 


EXECUTION TIME 
THE EXECUTION TIMES SHOWN BELOW ARE BASED ON THE POP 11/50. 
TOTAL TIME: 2 MIN, 40 SEC 


Nj 


s 
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3.9 


3.10 


3.11 


4.0 


4.1 


A BREAKDOWN OF THE MORE LENGTHY TESTS ARE SHOWN GELOW: 


IR | REI BE 
ee RUE me | 
ae | RUN 
TEST 26 137 CYL SEEK TIMES 10 SEC 
TEST 27 MAX VELOCITY TIMES 15 SEC 
FAULT ISOLATION 


TO BE DETERMINED. 


ERROR CORRECTION AND FAILURE RATE ANALYSIS 
THIS PROGRAM WILL NOT DO ERROR CORRECTION OR FAILURE RATE 
ANALYSIS. 


DEFAULT UNIBUS ADDRESSES 8 VECTORS 


THE FOLLOWING IS A LIST OF ALL DEFAULT ADDRESSES 3% 
VECTORS OF HARDWARE "3 BE USED & THEIR MEMORY 
ADDRES CHANGED. 


SES THEY CAN BE 
LOCATION DEFAULT CONTENTS 

RKO& BUSS ADDRESS 1264 1 
CONTROL INTERRUPT VECTOR 1314 210 
C PRIORITY 1316 240 
bags ve Os 
“Er bek RERO ER 1355 172544 
L-CLOCK STATUS 1326 177546 
~CLOCK T VECTOR 1330 100 

~CLOCK I T VECTOR 133e 104 
TTY KB STATUS REG 1144 177560 
TTY BUF 1146 177562 
TTY PRINTER STATUS REG 1150 177564 
TTY PRINTER BUFFER 1152 177566 


OPERATING PROCEDURE & CONTROL FUNCTIONS 


PROGRAM LOADING 


i PROGRAM CAN BE LOADED FROM PAPER TAPE USING STANDARD 
PROCEDURE FOR ABSOLUTE LOADER TAPES; OR FROM ANY MEDIA 
SUPPORTED BY XXDP. 
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35 
fe 


4.1.1 LOAD THE STARTING ADDRESS (SEE SEC 4.2). 
4.1.2 SET SWITCH REGISTERS AS DESIRED (SEE SEC 4.3). 


4.1.3 SET DRIVES TO BE TESTED IN THE Ra CONDITION & WITH THE 
TE PORT SELECTED & WRITE LOCK DISABLED. DRIVES 
NOT TO BE TESTED MUST HAVE BOTH TS DESELECTED. 


NOTE: THE DRIVE WILL NOT RESPOND TO THE ‘START SPINDLE” 
IF THE RUN/STOP SWITCH IS IN THE ’STOP’ 


4.1.4 PRESS START’ 
DIaLOGUE HIT HITH THE OPERATOR TO DETENRINE DRIVES 70 BE TESTED 


THE PROGRAM BEGINS TERT ING ONLY THOSE DRIVES ol (ih 3 BY 
THE INPUT eer a IF A SPECIFIED DRIVE CANNOT BE FOUND BY 
THE PROGRAM IT THAT 


TESTING ALL DRIVES. 


4.2 STARTING LOCATIONS 


TION - STARTING TO DEFAULT THE BUSS 
oe ie S's THe CONTROLLER NTERRUPT Ms 
& eT ALL DRIVES IN THE *DRIVE PRESENT 
CONDITION. 


NOTE: THE DRIVE PRESENT CONDITION IS: 


CORRECT PORT. SELECTED 
igi READY TROICAT TOR ON 
LOCATION 204 - SAME AS 200 START BUT BYPASS WRITE TESTS. 
LOCATION 214 - SAME AS 200 START BUT BYPASS TIMING TESTS. 
LOCATION 220 - sreatiNe ADDRESS TO INPUT TESTING PARAMETERS 


A_THE INPUT DIALOGUE. BUSS ADDRESS & 
CONT. INTERRUPT VECTOR INPUTTED ONLY ON 


467 


01 
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4.3 


4.3.1 


4.3.2 


4.3.3 


4.3.4 


4.3.5 


1ST PASS. 
LOCATION 224 - SAME AS 220 START BUT. BYPASS WRITE TESTS. 
LOCATION 230 - SAME AS 220 START BUT BYPASS TIMING TESTS. 
IMPORTANT: FOR VARIATIONS OF THE ABOVE, SEE nor, ACT/APT 

CONSIDERATIONS IN SECTIONS 3.2 8 3.3. 

SWITCH REGISTER 
THE SWITCHES ARE USED TO PROVIDE CONTROL FUPCTIONS. 
SWITCH FUNCTION 


15 

a LOOP ON TEST 

3 Intel 2h. A aL Sh ERRORS 

1 HP Bese 

9 LOOP ON ERROR 

8 LOOP ON TEST IN SW<07:CO> 
SW< 15> 


THE PROGRAM HALTS ON ENCOUNTER 


THE ERROR MESSAGE AND PERTINENT INFORMATION. IF SW13= 
PRESSING “CONTINUE” RESTORES NORMAL OPERATION OF THE PROGRAM 
SW< 14> 

THE PROGRAM LOOPS ON THE TEST THAT IS BEING EXECUTED WHEN 
THE SWITCH IS PUT ON. THIS SWITCH IS NORMALLY USED ALONG 
WITH SWIS. 

SW< 13> 


THIS SWITCH INHIBITS ALL ERROR MESSAGES. NORMALLY USED WHEN 
LOOPING ON TEST (SW14) OR LOOPING ON ERROR (SW9). 

SW< 12> 

THIS SWITCH BYPASSES A GIVEN DRIVE AFTER 20 ERRORS HAVE 

BEEN DETECTED. 

SW<11> 

EACH TEST WILL BE EXECUTED ONLY ONCE. NORMALLY AFTER THE 


SEG 0009 
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4.3.6 


4.3.7 


4.3.8 


4.4 


4.5 


FIRST PASS, EACH SUBTEST IS ITERATED A NUMBER OF 


tebe 20s 6B Ft pea RING THIS SHITCH INMIBITS 


SW< 10> 
RINGS A BELL ON ERROR. USEFUL WHEN ERROR TYPEOUT IS INHIBITED. 


SW<09> 
THIS SWITCH PROVIDES THE LiGnTest Ppa E ate LOOP Fe. 
oI K 


GRR oR - pekinnitic b hi DETECTS AN WILL LOOP 


SW<08> 


THIS SWITCH IS USED TO SELECT A pg TEST (AS se 
SW<00-7>) FOR EXECUTION AND SUBSEQUENT nate ING. THUS I 
eM 4s I$_TO BE CTED THE SWITCH SETTING WOULD 

1 BE NOTED THAT BEFORE 2, TEST 15, 
ALL THE PREVIOUS TESTS (1-14) WILL BE EXECUTED. 


*SOFTWARE’ SWITCH REGISTER 


IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR 

(1.E. AN 11704 OR 11734) THE PROGRAM WILL DETERMINE THAT 
THE HARDWARE SWITCH REGISTER IS NOT PRESENT AND WILL USE 
A *SOFTWARE’ SWITCH REGISTER. THE *SOFTWARE’ SWITCH 


SEPT P eT ATS UM Nhat itn tites se 


THE PROGRAM Mn RECOG 3 THE °C ROL ‘AY y TINE? 
E T WHEN T PROcRON {5 at a s Oe one: PROCESSING 
AN RKO& INTERRLET THE ’ S ARE 
ENTERED AS AN OCTAL tN WRE SPONSE "$9 THE UFR OnPT 
FROM THE SWITCH ENTRY ROUTINE: 

SWR = NNNNNN NEW = 


TIME SWITCH ON ARE ENTERED, THE ENTIRE SWITCH 
REGISTER R IMAGE BE ENTERED. LEADING ZEROS ARE NOT 
*RUBOUT’ AND *CONTROL U’ FUNCTIONS MAY BE 
Seb 10 FO CORRECT TYPING ERRORS DURING SWITCH ENTRY. 


ON’ PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE 
sine at SWITCH REGISTER MAY BE USED. IF THE PROGRAM 
FINDS ALL 16 SWITCHES IN THE *UP’ POSITION, ALL SWITCH 
REGISTER REFERENCES WILL BE TO THE ‘SOFT ’ REGISTER 

AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED. 


INPUT DIALOGUE 


UNT 
OZRbIC. 


OR 


or 
Daa 


ais 
22 
=e 


1 


marta 


SeSeaLOR 


BREE Jao Sonn oss Orne oe Son MeO Ss 


a 


unuy 
w 
bt 


-OCT 


DIAGNOSTIC PART 2 
13:50 


-76 1 


MACY11 27(1006) 07-OCT-76 14:14 PAGE 11 


".6.1 


4.5.2 


4.6.3 


4.5.4 


THE DIALOGUE WILL BE DONE INTERACTIVELY. THE PROGRAM WIL 


Tren Be Ne teat“ ioreoata ie Neg gl 


OR ILLEGAL RESPONSES WILL 
BE ECHOED TREK POLLO pueD BY spon PROPER RESPONSE MA 
THEN BE ENTERED. 
IMPORTANT: FOR VARIATIONS OF THE AB SEE XxD XXDP, ACT/APT 
ONSIDERATIONS IN Leis oe 
DRIVE SELECTION 
THE REQUEST WILL BE: 
DRIVES TO BE TESTED: 


THE DEFAULT RESPONSE IS CARRIAGE RETURN TO TEST ALL DRIVES 
IN THE 'DRIVE PRESENT’ CONDITION. 


THE OPERATOR CAN ALSO TYPE IN THE SPECIFIC DRIVE NUMBERS 

TO BE TESTED, SEPARATED BY COMMAS & TERMINATED BY A CARRIAGE 
E.G. DRIVES TO BE TESTED: 1,2,4,6 

IMPORTANT: FOR VARIATIONS OF THE ABOVE SEE xx0P, ACT/APT 

CONSIDERATIONS IN SECTIONS 3.2 & 3.3. 

BUS ADDRESS 

THE REQUEST WILL BE: 
TYPE IN BUSS ADDRESS IF NOT 177440 

THE DEFAULT IS A CARRIAGE RETURN 


CONTROLLER INTERRUPT VECTOR 
THE REQUEST WILL BE: 

TYPE IN CONTROLLER INTERRUPT VECTOR IF NOT 210 
THE DEFAULT IS A CARRIAGE RETURN. 


EXAMPLE OF PROGRAM DIALOGUE 


THE EXAMPLE SHOWN IS FOR A PROGRAM STARTED AT ADDRESS 220. 
ALL OPERATOR RESPONSES ARE UNDERLINED. 


UNIBUS RKO& DRIVE DIAGNOSTIC 
PART 2 


SEG 0011 
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IBUS 
ZREIC. 

532 
5393 
S34 
ie 
598 
599 . 
600 
601 
602 
603 
604 
60S 
606 
607 
608 
609 


MAINDEC-11-DZR6I-C-PB 
DRIVES TO BE TESTED: 1,3<CR> 


TYPE IN BUSS ADDRESS IF NOT 177440 <CR> 


TYPE IN CONTROLLER INTERRUPT VECTOR IF NOT 210 <CR> 


WILL TEST DRIVES: 

3 

DRIVE 1 

(THE REST IS IDENTICAL TO THE EXAMPLE SHOWN IN 4.6 BELOW) 


4.6 PROGRAM EXAMPLE 


THE FOLLOWING IS AN EXAMPLE OF A PROGRAM STARTED AT THE 
DEFAULT ADDRESS (200) & WITH 2 DRIVES ON THE LINE. 


UTS te DRIVE DIAGNOSTIC 
MAINDEC~11-DZR6I1-C-PB 

WILL TEST DRIVES: 

I 

DRIVE 0 


DRIVE SERIAL NO. AAA 
CARTRIDGE SERIAL NO. BBB 


DRIVE 1 


DRIVE SERIAL NO. CCC 
CARTRIDGE SERIAL NO. DOD 


END PASS #1 


CORON o 
WO NOU £ wr O 


SOR URREO ROS ONO 


gilt TEST DRIVES: 
1 


641 

b4e DRIVE 0 

eu DRIVE SERIAL NO. AAA 
bis - CARTRIDGE SERIAL NO. BBB 
647 DRIVE 1 
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4.7 


é. OPERATING THE *CONTINUE’ peice ny 


DRIVE SERIAL NO. CCC 
CARTRIDGE SERIAL NO. DDD 


END PASS #2 
(ETC) 


THE ABOVE ASSUMES NO ERRORS DETECTED. 
THE NUMBER OF PASSES IS DETERMINED BY ACT/APT/XXDP 


IMPORTANT: FOR VARIATIONS OF THE ABOVE, SEE xxOP, ACT/APT 
CONSIDERATIONS IN SECTIONS 3.2 & 3 


HALTING THE PROGRAM 
A METHOD OF _HALTING ITSELF SUCH THAT 
eae E RAO/R ye of ra YB roma” UNDETERMINED 


TO PROPERLY HALT, TYPE CONTROL-C (fC) ON THE CONSOLE. 


Hf MeAps Aae jHOPDED & FORMATTING IS VALID, 


1. ECHO tC 

2. TYPE “CPU HALTED” 

3. HALT THE PROGRAM 

IF HEADS ARE NOT LOADED AND/OR FORMATTING IS INVALID, 

THE PROGRAM WILL: 

1. ECHO tC 

2. TYPE *HALT PENDING, PLEASE WAIT’ 

3. DO THE TEST(S) THAT LOADS HEADS AND/OR FORMATS 
THE INVALID CYLINDERS 

4. TYPE ’CPU 

S: HALT THE PR 

NOTES: 

1. THE ABOVE EXAMPLE Is F FOR THE PROGRAM RUNNING IN DUMP 
MODE (MANUAL). IF I HE PROGRAM IS RUNNING IN CHAIN/AUTO 
MODE vig oar, ACT,APT; IT eine ost LOAD HEADS 


T’ CORRECTLY REQ’D, THEN IT WILL 
JUN ON TOT THE MONITOR HERE THE NEXT PROGRAM CAN BE 


THE TYPEOUTS WILL BE "ABORT PENDING ~ oe WAIT” 
& “PROGRAM ABORTING 


CONSOLE WIL URN THE 


SEQ 0013 


THE CPU L ner 
PROGRAM TO TEST 1 WHERE TESTING WILL BEGIN WITH THE 1’ST DRIVE AGAIN. 


TT TT 


7el 


ASS TRA ESSHS EINE RE SRO NOO POO 
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§.0 
§.1 


S.2 


DRIVE DIAGNOSTIC FUNCTIONAL DESCRIPTION 

GENERAL 

A. WRITE TESTS 
THESE TESTS CHECK THE ABILITY OF THE DRIVE 
WORSE C TPL TERNS; PERFORM ALL OFFSETS 
SPIRAL WRITING. 

B. SERVO & SPINDLE TIMING TESTS 
THESE TESTS CHECK & TYPE HEAD LOAD, UNLOAD 8 INDEX TIMING, 
ALSO MIN. MAX, AND AVERAGE SEEK TIMES, AND MAX VELOCITY 
OF THE HEADS ARE MEASURED 8 TYPED. 


TEST DESCRIPTIONS 


TQ WRITE 8 READ 
& PERFORM ALL 


RELLEEERREREREEEEEEES ERE SEER ERS ES EEE EERE ALEAELESE ARERR EEE LEED EE 
BASIC CONTROLLER TESTS, SIZING & SETUP 
SEEERERERER ES EE EREEER ERE RES EAEE ERR ERERERRE EERE RE REEL REE EEE EERE ED 


TEST 1 REFERENCE ALL CONTROLLER REGISTERS 


DSR EGTA tS CHER GEE ESTED 
"aN ERROR MESSAGE. ANY 
ERROR ‘as Test WILL TUf RESULT IN IN ABORTING ALL OTHER 


TEST 2 SIZE THE BUSS 


EVERY DR AtUE FROM 0 THRU 7 " SSED. 

CON ERROR (CERR) IS “005 AND IF NOT 
DRIVE WILL BE TESTED. IF SET, THE PROGRAM WILL BYPASS 
TESTING DRIVE ONLY IF THE ERROR WAS A RESULT OF 
MDS, UFE OR NED BEING SET: QR BOTH NED & DRA RESET I 
DICATING THE OTHER PORT IS SSED. 

TEST 3 VERIFY OPERATOR DRIVE SELECTIONS 


THIS 1g IS ENTERED ONLY IF DRIVE SELECTION IS NOT 
AUL DRIVE FROM 0 & 
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8 DRA RESET (WRONG PORT). IF CERR IS 


NED ONY, OTe IT IS S CHECKED AGAINT THE INPUTTED AINEDR TO 


FIND NEXT DRIVE TO BE TESTED 

Hot TEST of HOS Te NEXT DRIVE PRESENT & PUTS THAT 
THROUGHOUT THE FOLLOWING TESTS, THE DRIVE TESTED IS 
THE DRIVE WHOSE ADORESS IS IN 'DRVAD’. 
PRINT DRIVE SERIAL NUMBER 


THIS TEST READS & PRINTS THE OrIVE 


SERIAL # FROM MSG A, WORD 11 
IN DECIMAL & IS PERFORMED ON THE 1ST 


ST PASS ONLY 


SET VV WITH PACK COMMAND 
IF VV IS RESET, THE PACK COMMAND IS USED TO SET IT. 


READ & SAVE BAD SECTOR INFO & TYPE PACK SERIAL & 


THI TEST FIES THAT CYL 410, TRACK 2 CAN BE READ. 
AINS BAD SECTOR INFO WHICH IS WRITTEN BY THE 

Ms ono DURING MANF. ALL BRO SECTOR INFO (BSE) WILL BE ST 

AT THIS TIME TO MASK READ HEADER OR DATA ERROR PRINTOUTS 

IF INFO CANNOT BE RE OR TF PETER READING THE BSE INFO 

A neechee Bree TYPED Tan NG THAT —, 


3 


FUTURE F READ-WRITE TESTS WILL BE B 
THIS IS DONE SO AS NOT TO DE 


THE PACK SERIAL # IS TYPED IN OCTAL & FOR THE FIRST PASS ONLY. 


SA EEE Hea ea AEE EAE Ae EE EA EE RRR EERE EERE EERE EER ERE 
WRITE TESTS 


SEALALALALLLLLALLELELSLELELELALLLLLALALSLELALALAELELERSLLELRLLLEE 


TEST 10 BASIC WRITE DATA TEST; 1 "ORD 


BENCH SES SERS BRB IR REE dal Volal dant tclees 


nes ope fone yenIF ise THE Bre, GIVEN N BENT NTYCAL HEADERS 6” JUST ONE WORD, 
BA URTTE 


eae TIGHTEST BOSSIELE SCOPE LOOP 
PERFORMED. THIS TES BROVIDES Aue TIGHTEST POSSIBLE SCOPE LOOP 
FOR A WRITE ERROR. 


TEST 11 BASIC WRITE DATA TEST; FULL SECTOR 


mMmMowwow«m 
ee SS eT a 
nN CWMeH-O 





THIS TEST VERIFIES THE ABILITY OF THE DRIVE TO WRITE 


YPASSED. 
STROY BSE INFO OR AN ALIGNMENT PACK BY WRITI 






SEE ORC ORS COUR TERE OSS IRA LGR SOM TRS ae ONE tos 


OOoOno oO 


44 
‘ 
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A FULL SECTOR. ALL ZEROS ARE WRITTEN BY THE WRITE DATA COMMAND 
by The ooo A AO ae. COMMAND. A FURTHER CHECK IS PERFORMED 


ABOVE IS REPEATED FOR AN ALL ONES PATTERN. 
TEST 12 20 SECTOR FORMAT TEST 


R's BO, B1 ARE. CHECKED FOR ANY ERAOR CONDITION 


TEST 13 TEST OFFSET & RTC LOGIC 
ARE FIRST git a BY OFFSET COMMANDS. 


THE 
THIS TEST CHECKS THE RTC LOGIC BY VERIFYING THAT THE 
"OFFSET ON’ BIT (MSG A,00) RESETS AND THE OFFSET REG 


CLEAR 8 SEEK T0 zeLF WILL NOT 


25 


ON OR THE OFFSET 
ALL OFFSET POSITIONS IN BOTH DIRECTIONS ARE CHECKED 
TEST 14 TEST READ DATA AT ALL HEAD OFFSET POSITIONS 


THIS TEST hua THAT THE HEAD OFFSET LOGIC IS OPERATIONAL BY 
WRITING ALL 1’ TTERNS ON CYLINDER 0, HEAD O. nN 


SEG 0016 


PERFORMING DATA FROM CENTERLINE AND MOVING OUT + AND - OFFSET 


POSITI UNTIL A FAILURE SORES. oe FAILING OFFSET POSIT 
PRIN IF LESS THE OFFSET TOLERANCE TO BE SPEC 
SET CODES ARE VERIFIED BY READING MSG A, STATUS OO & 
ALL HEADS ARE TESTED AT CYL O. 


IF THERE ARE NO FAILURES AT ALL, THIS INDICATES THAT 

. HEADS DID NOT MOVE A 

. THE COMBINATION OF bse § SURFACE, HEADS, R/W AMP 
ARE EXCEPTIONALLY GOOD. 


AN APPROPRIATE MESSAGE WILL BE TYPED. 


I 
I 


B 


TEST 15 WRITE WITH HEADS OFFSET 


THI um VERIFIES THAT WHEN ATTEMPTING T 

WRITE WITH HEADS ior SET THAT THE OFFSET WIL CLEAR 
ae DRIVE WILL WRITE 

SINCE THs WRITE COMMAND HAS AN IMPLIED RTC. 

HIS TEST IS ORMED FOR MAX POS & NEG OFFSETS ONLY 


TEST 16 TEST CURRENT CROSS-OVER CYLINDERS 
THIS TEST VERIFIES THAT THE DRIVE CAN WRITE & READ OFF 


ONS 
FIED. 
10. 


ee ees re — 


EEE 
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5 
e 
22 
-e 
z 
a 


BERR ER See SRR ECR CER RE odo sand | 


CURRENT CHANGE CYLINDERS X & Y IN THE FOLLOWING WAY: 


RTTH' A DATA PATIERNFILLING TRE ciTtRe Ss CYLINDER. 


BRITE GK TS Tren PREFORMED TO wall DATA WAS PROPERLY WRITTEN. 


ORMED FOR ALL 3 
CYLINDER X: 63 127 191 = 19 383 
CYLINDER Y: 64 1e8 192 384 


TEST 17 TEST HEAD SWITCHING TIME 
TESTS THE ABILITY TO SWITCH HEADS IN LESS THEN 1OMS WHEN EADS SPIRAL. 
. SECTOR 17 IS FIRST 1; AND A WRITE DATA COMMAND OF 512 WORDS 


TO SECTOR 21 
T THE ORIVE WIL, NOT HAVE TO TRAVEL 
ro ORE Re FINDING SECT 1. 


“i SINCE E EAH Sect THE E WRITE COPPA FRO beCTon et, a Lm 9. 
oe ETBR 0, HEAD 1) AND CONTROLLER READ 


THE. ABOVE IS REPEATED FOR HEAD SWITCHING BETWEEN 1 TO 2 
THIS TEST IS BYPASSED IF NEITHER L OR P CLOCK IS PRESENT 


TEST 20 DRIVE OFF TRACK TEST 
SM TEST Tae FOR SERVO OSCILLATIONS DURING SETTLING TIME BEYOND 


1. {Untaue 10 Every Cre IS FORMATTED WITH IDENTICAL HEADERS 
é. eee toe atenTitar te IS ISSUED BY A SINGLE CYL SEEK FROM 0 TO 
aig HEROERS RE put Ake een eee COS BEN Ne 
1 I I ON Nee eee. BY READING THE TRIBITS, 
is IN = pla dy 6 Bg NeEN ALL MAJOR CYLINDE 
SEP hr STRODE 
i eee ane Me Hear EL 
$13 


SHEALLELAALLAALESARASAE LAL LAL LALLA LA SLASLELALAALALERLARAA RAE RLELE 


8 TIMING TESTS. 
Si Re db a Eg 4 A a a a a A a eh kk 


SERISASS 


TEST 21 TIME BETWEEN OUTER LIMIT TO HEADS HOME DURING UNLOAD 


FOe 
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ty IS MEASURED FROM ATTN ASSERTING (APPROXIMATES REV & OUTER LIMIT) 
OQ HEADS HOME ASSERTING. EXPECTED TIME APPROX SOOMS 


ALL Wy yy TESTS ARE BYPASSED IF NEITHER 
L OR P CLOCK IS PRESENT & WILL BE INDICATED BY A MESSAGE 
TEST 22 TEST LOW VELOCITY TIMES DURING LOADING 
ys TEST ISSUES A START SPINDLE C 


Fhe FoLLGHnG “LOM VELOeYT~ Oe TeRSeran DE, PAS TEST 


THE F 
LIMITS TO BE DEFINED 


TIME 1: TI HEADS HOME NEGATING & SERVO SIG PRES ASSERTING 
ne BETHEEN te APPROX SOO MS 


TIME 2: TIME BETWEEN OUTER LIMIT & INNER LIMIT 
TIME IS MEASURED FROM SERVO SIG PRES (APPROX OUTER LIMIT) 
TO REV (APPROX INNER LIMIT) 
EXPECTED TIME APPROX 2 SEC 

TIME 3: TIME BETWEEN INNER LIMIT & OUTER LIMIT 
TIME_IS MEASURED FROM REV ASSERTING (FROM ABOVE) 
TO NEGATING (APPROX OUTER LIMIT) 
EXPECTED TIME APPROX 2 SEC 

TEST 23 MEASURE ROTATIONAL SPEED 
THIS TEST MEASURES INDEX TIMING BY: 
A. CHANGE FORMAT 2 2 SECTOR & READ HEADER 


THE TIME? : 
B. chee FORME 8 ze SECTOR & READ HEADER. 
CONTROLLER RDY TIMER. 


TIDEX TIMI S 2 CONT. ROY TIMES. 
$ I$ BECRURE, A CHANGE. OF FOR OF FORMAT INHIBITS hy PULSES 


eM A ie met aa 


THE TIME IS THE AVERAGE OF 100 READINGS. 


TEST 24 MEASURE MAX SEEK TIME 


iy! TEST reneUES THE MAX SEEK TIME BETWEEN CYLINDERS 0 & 410 
OF 100 SEEKS IN BOTH DIRECTIONS ARE PRINTED 
Ir NOY uiTHIN IMITS TO Be se . 
MAX SEEK TIME BE LESS THAN 


TEST 25 MEASURE MIN SEEK TIME 


 ---ooO—- - Oe ce 


ONNNOV0N0000 
el eel eee ee ee oe oo et oy 
WONMUI£C WO 


Ba URATB RCH UE NORUON Nos rasan soe GRReB RSE 


Q 
B 


Pia iisincht ters pet ht ts ae 


on 
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S TEST MEASURES THE MIN SEEK TIME BETWEEN CYLINDER O 8 1 


HE AVEREGE TT Cinits! 19 BE SUPPL eR DIRECTIONS ARE PRINTED 


RIN EK TIME SHOUL S5 THAN 10MS. 


TEST 26 MEASURE 137 CYLINDER SEEK TIME ; 


THIS TEST MEASURES THE AVERAGE SEEK TIME BETWEEN CYLINDERS 0 8 137 
THE AVERAGE TIME OF 100 SEEKS IN BOTH DIRECTIONS ARE PRINTED 


IF NOT WITHIN LIMITS TO BE SUPPLIED. 

AVERAGE SEEK TIME SHOULD BE LESS THAN 4OMS 
TEST 27 MEASURE MAX VELOCITY OF HEADS 

THIS TESTS MAX VELOCITY BY DOI 


ies B Sch SIN Serie Ute lee eee ta ies 8 eb B 256 1S KNOWN, 
IF NOT WITHIN THE SPECIFIED LIMITS TO BE SUPPLIED. 


THE PROGRAM DOES NOT REQUIRE FORMATTED PACKS AS FORMATTING 
IS PERFORMED IN ANY CASE. 


ANY TEST THAT MODIFIES STANDARD FORMATTING IS FOLLOWED BY A 
sear UP’ TEST TO THOSE CYLINDERS BACK TO STANDARD 


6.0 ERROR REPORTING 


6.1 ERROR INTERPRETATION ? 
VER MESSAGE IS PRINTED OUT, ALL REGISTERS 
AND OTHER DATA PERTAINING TO THE ERROR ARE ALSO GIVEN. 
MSG A(OO), MSG B(01), RKER, RKBA IND CATE THE 


nm i a 


T 


RRPRIRNRNIRRMR Se teR eee 


SERRE 


ee ee eel oe i 


SueRRgBReBSS IsaoaNsoe 
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6.2 


NOTE 
NO ERROR LOGGING OR OPERATION HISTORY IS PROVIDED. 


ERROR PRINTOUT EXAMPLES: 


EXAMPLE #1 


MESSAGE AO ERROR 
AFTER START SPINDLE CMD & FWD SET 
BEM off 
EXPECT CT peer et © EXPECT EXPECT EXPECT 
Be B3 


AO 
030144 100000 B13704 00000 
ACTUAL ACTUAL 1 tate ge. ag TUR. ec TUAL oc TUR. 


> a 101744 1 
san nay RKER RKDS_  RKDC 
00160 010000 o00000 000000 000000 


DERI ROFLORET,S eo 
Bo Lin lies tok 160 va ORE Te 


EXAMPLE #2: 


NO_ATTN IN RKASOF 
AFTER UNLOAD COMMAND 


014330 
RKMR3 RKER RKDS RKCS1 
600144 100000 000000 100101 O00e0& 000104 000000 


{ END OF DOCUMENT ] 


SEQ 0020 


SESRRS 


0 20 + 0+ 0-2 b= &~ b— b= b= bb bb bs bb = = 2 bs be - -= 2 ph o— b+ b <b -+ b> +b =F =» +b b= b= Bb +b =~ 0-2 B= 


se he Bae be bs a os bs ba 0s be be ae be be he bo hs Bo hae be bw hw B= Bo 2 P= bo 8 Bo bs Bo 2 
BBVRRESRESSBVRRPORVVss ion cow-oseweneowes 
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-NLIST CNO,MC,MD 
LIST 
;DEFINE SYSMAC MACROS 


$SWR= 167400 ;DEFINE SWITCHES 15,14,13,11,10,9,8 
STN= 1 ;SET FIRST TEST NO. TO'L 


TITLE eNTeUS RKOG_ ORIVE DIAGNOSTIC PART 2 
:401 IT EQUIPMENT gorP. 
jane , MASS. 
roca BY GARY PAPAZIAN 
:#THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
s EPRCKAGE (MAINDEC-11-DZQAC-C2), SEPT 14, 1976. 


‘sam. OPERATIONAL SWITCH SETTINGS 


;* 

* SWITCH USE 

i 15 HALT ON ERROR 

+ {4 LOOP ON TEST 

+ 13 INHIBIT 

:* le ABORT Ort AF 20 ERRORS 

ie ll INHIBIT ITERATI 

3% 10 BELL ON E 

7% g LOOP ON ERROR 

;% 8 LOOP ON TEST IN SWR<7:0> 

- SBTTL SUMMARY OF STARTING LOCATIONS 

3% 

* FAULT PARAME 

3% AULT PARAMETERS 8 BYPASS WRITE TESTS 
:% 214 DEFAULT PARAMETERS & BYPASS TIMING TESTS 
;# NPUT PARA Re 

+ NPUT PARAMET & BYPASS WRITE TESTS 
3% T TERS & BYPASS TIMING TESTS 
; : 240 OOT11 


SEG 0021 


JO0e2 


SEG 0022 


RROPY REQUEST REGISTER 


5 


: 


—7F 


-_ “7 t-< 


IORITY LEVEL DEFINITI 


Qa 
é 
. 
: @ gE oe 
So wee pede 
yf 5 ee - SSS p onuerinon 
SFr Ryees WESe | iintnninintntn 
ts fee 
- g 88 Ss5By a Segeedgaeg GELLER 
z oe ~ SSSog555 
= Bigg Seite Gere Bass ee errreeree © 
BEF a 
Se E a : 
: : 
a 


) 
ONS 

.SETTL BASIC DEFINITIONS 

et, 

OT SCOPE 
sMISCELLANEOUS DEF INITIONS 

le 

PS Pst 

eee 

139695 

177570 
#GENERAL 

“0 

%1 

‘5 

%4 

be 

3 

% 

“7 


#PR 


bi 


dssaseaacas Epeeeegas MiMtates ated 


D 
001290 





Sa 


Bs LARARAARRAA LOU UUITUU IO tithe Wi hie Oe a a St aetettet totatetatattt taut 


Sa De Reet Meee Lees heat Roti Ree Le Ket, Roe hoe ome Kom Dot Doon Dot Rien Doe Don Don Doe Dee Dee Doe cee [ee [ieee SS EA ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee eee ee he en tee) 
-< Stet ee Ret tet he ete ieee hee heath eat ham ee hee tn bea eee ae a het ae hae hea hee hem ae beams ame hee aoe lean ee Lam Lean eam am beams am Kea. eae ham Kam, kare. keen Loam em Kees eam eee oe am ew bem hem hem ham! 
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; 07-OCT-76 13:50 BASI 


) 07-OCT-76 14:14 PAGE 23 SEG 0023 
ITIONS 


wn 
ze 


o000Ge SWOl= 
009001 


xo 


ra a a ae Ort 
<<<<<<<<<< 


. . * * . . * ee o 
eal AA AA AA A al oe a 


222222 


INITIONS (BITOO TO BIT1S) 


sonny giTise *Longto 
ieee Btrise Reaey wer 
904000 BITli= 4000 
902000 BIT10= 2000 
001000 BITOS= 1000 
I = 
a He 
000020 BITO4= 20 
000010 BITO3= io 
BItoi= 2 
000001 1700s I 
EQUIV 1103, 8179 
“EQUIV BITOS;BITS 
-EQUIV te 
“EQUIV BITO6;B Tp 
“EQUIV 1106, B17 
“EQUIV BITO4;BITY 
"EQUIV BIT03;81T3 
-EQUIV BIT0e, BITe 
‘ gutV BtT00' BITO 
;#BASIC “CPU” TRAP VECTOR ADDRESSES 
a NEE lo PSA 88 IEE Stuer 
000014 Peer cata ii8 BI 
“att VK is + INT TRAP (BPT? 
ane Tones 24 i Ineo autut TRAP (IOT) #*SCOPE#* 
990030 ENTVEC= 30 3 SEMULAT ATOR TRAP (ENT) s¥ERRORS# 
oe: HT Beinren weer 
Bppead PIR SEc=eu0 : : PROGRAM INSEMRUP? REQUEST VECTOR 


-SBTTL RKO& CONTROLLER REGISTER DEFINITION 





UNTBUS RKOG DRIVE DIAGNOSTIC PART 2 MACY11 27(1006) 07-OCT-76 PAGE 24 SEG 0024 
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l 

1533 A $BASE=177440 

1255 oii : Ce: ae REGISTER 1 

1 RKDA= 6 G 

ie58 Rises Ig sDESTRED TRACK, UR S neciS TER 

ae Beas suai reise 

l OF= 16 iene hay ST ERARY AND OFFSET REGISTER 

1263 RKDC= 20 DESIRED ED CYLINDER REGISTER 

1264 RKDB= 24 

1265 RKMRI= 26 mi GISTER 1 

i RKMR2= cS is NT Reet (MESSAGE LINE A) 

: RKMR3= NCE REGISTER 3 3 (MESSAGE LINE B) 

1ee8 RKERpES 3p Fe "POSTION I APORMATION 

1271 .SBTTL CONTROL AND STATUS REGISTER 1 BITS (RKCS1:0) 

1273 ; DRIVE COMMANDS 

1275 000001 SELDRV= \ SELECT DRIVE (GET STATUS) 

1276 000003 = : PACK 

A 000005 coe 3 ; DRIVE CLEAR 

1 cee = il ISTART SPINDLE 

1280 900013 RECAL 13 sRECAL IBRATE 

ie BUF seen 1? ie 

1 000021 TA= 21 tREAD DATA 

1284 000023 WROATAS 23 sHRITE DATA, 

ibe peers = 4 TR ITE RE ORR AND DATA 

1287 000031 WRICHK= 31 :WRITE CHECK 

1289 000001 GO= BITO :GO BIT 

1290 000100 IE= BITS j INTERRUPT ENABLE 

{Sap ened DADE BALE Btte ae 

1293 001000 BAl7= BIT9 Ba se |i Ip 

194 COT BIT10 eu TYPE (O=RKO6) 

1 CFMT= Bitte ee DRIVE FORMAT (O0=22 SECTOR, 1=20 SECTOR) 

t oz DCPAR= BIT13 Y PARITY. ERROR DETECTED BY CONTROLLER 
CERR= BITIS + OONTROLLER ERR ERROR 
CCLR= BITIS ‘CONTROLLER CLEAR 


-SBTTL CONTROL AND STATUS REGISTER 2 BITS (RKCS2: 10) 


pReMok= 7113 IDESELECT BR RELE EASE DRIVE’ Ih BITS 0-2 


RLS 
BAl= BITY ADDRESS INCREMENT I 
SCLR= BITS i SUeSYSTEN CLEAR CONTROLLER AND ALL DRIVES 


BS: 


SSRSRRBES 


' 


eee es os - 


hh be bo ee 
000 NOU £ LIT 


WWWWW WWI) 


bb bh hh bh = = + hs he 


ehirictnn iinet 


acacia acer ee eee eins 


pot 


MOe 
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07-OCT-76 13:50 ONTROL AND STATUS REGISTER 2 BITS (RKCSD:10) 
000100 IR= __ BIT6 s INPUT READY 
eat ae ieee 
1 MpS= 19 EMULTIPLE DR ve SELECT 
= Btri INON-EXTSTENT MEMORY 
BOD iPr be : UNI TO URITY ERR 
o49009 = gtr "WR FE CHECK Lek 
1 OLT=  &BITIS DATA LATE ERROR 
-SBTTL ERROR REGISTER BIT DEFINITION (RKER: 14) 
ILF=  BITO ILLEGAL FUNCTION CODE 
skis BIT P 
NXF= IT2 tNON-EXECUTABLE FUNCTION 
DRPAR= BITS : DRIVE DETECTED SERCON PARITY ERROR 
FMTE= BITS ‘FORMAT 
ory 2 ar ; DRIVE TYPE ERROR 
= T ey 
cant cate ee ee 
IDAE= BITiO "BESk_ FORE : CYL 
WLE= Tll ERIE 
DTe=  BIT12 ‘DRIVE ate ING ERROR 
OPI=  8IT13 OPERATION (SEARCH) INCOMPLETE 
UNS=  BITI4 ‘DRIVE UNSAFE 
OCK=  BITIS ‘DATA CHECK 





-SBTTL— STATUS REGISTER BIT DEFINITION (RKDS: 12) 


00001 DRA= —- BITO sDRIVE AVAILABLE (CONTROLLER IS SET IF 
: THIS BIT IS RESET) 
oo00004 OFST= BIT2 sDRIVE SET 
Bas mas EIN ie th 
000040 DROT= BITS ; DRIVE OFF TRACK 
000100 = BITE ; VOLUME VALID 
BoDs00 Bare BT + ORIVE 
DOT= BITS :DRIVE TYPE (O=RKO6) 
004000 = 8ITll swRT LOCK 
020000 PIP=  8IT13 “POSITIONING IN PROGRESS 
040000 pSc= = BIT14 ‘DRIVE STATUS CHANGE 
100000 SVAL= BITIS *STATUS VALID 
.SBTTL MAINTENANCE REGISTER 1 BIT DEFINITION (RKMRI:22) 
000017 MESMSK= 1 
Sante PAT= BIT ORE EVEN PARITY ON SERCON MESSAGE LINES 
100 MSP= BITE DInGnOST TC. CTOR PULSE 
000200 MIND= BIT7 : MAT INDEX 
000400 MCLK= BITB : MAIN CLOCK 
001000 MERD= BIT "MAINTENANCE ENCODED READ DATA 
002000 MEWD=  BITIO “MAINTENANCE ENCODED WRITE DATA 
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DZR6IC.Pil 07-OCT-76 13:50 MAINTENANCE REGISTER 1 BIT DEFINITION (RKMR1: 22) 
ies ae eeSmensaTig cove 
1366 ECC e1T13 iECE HORD ae BEING READ OR WRITTEN 
= 
1 : ROGATE= Biri READ GATE 
1376 .SBTTL DEFINITION OF DRIVE STATUS BYTE 00 MESSAGE A (RKMR2:34) 
1 , aval 
138 Bs ai ORT Ue vA YBo 
l ;DRIVE READY 
1375 , DOT as iN TYPE (O=RKO6) 
136 “OFS TiO : OFF 7 oN 
1378 D. = BI Ml ehh 
1 B- Br Bt : ah IN PROGRESS 
1381 040000 D:0SC= ‘BITI4 :DRIVE STATUS CHANGE 
Lies .SBTTL DEFINITION OF DRIVE STATUS BYTE O1 MESSAGE A (RKMR2:34) 
1 oo0020 0.SSP= BITY SERVO SIG PRES 
1386 000040 D.HOHM= BITS HEADS HOME 
1387 000100 0: BRHM= BITE : S HOME 
1388 . 900200 D.D00R= BIT : NTERLOCKED 
1383 : b00400 0: CART= BITS ;CARTRAGE INTERLOCK 
2 a : 
1 "REVs BIT1I 
1333 010009 D-LOAD= BITle ‘READS Erte 
1335 BSD at B- ONcD= Btria oe EN 0 
1397 .SBTTL DEFINITION OF DRIVE STATUS BYTE O00 MESSAGE B (RKMR3:36) 
1399 go0049 p. IDAs BITS ; INVAL TD DISK ADDRESS ERROR:HEAD/CYL 
tH ened petits Bir? PR ee al FUNCTION CODE 
1403 001000 D. PAR= errs RIVED bE TECTED SERCON PARITY ERROR 
1404 002000 D.SkI= BITIO SEEK INCOMPLETE 
Lupe nieaeed B opt ss BITS peep Lose 
1407 020000 0:DROT= BIT13 DRIVE OFF TRACK 
1408 040000 D.UNS= BITI4 :R/id UNSAFE 
1410 .SBTTL DEFINITION OF DRIVE STATUS BYTE O1 MESSAGE B (RKMR3:36) 
1412 D.SECT= BITY ;SECTOR ERROR 
1413 000040 D:WCUR= BITS tWRITE CURRENT AND NO WRITE GATE 
tats 000100 tOFLe Bits MRITE GATE AND NO TRANSISTIONS 
141 Boos00 D.MHD= BITS "MULTIPLE HEAD SELECT 
14] 001000 D.XERR= BITS : INDEX ERROR 
1418 002000 D:TIB= BITIO :TRIBIT ERROR 
1419 004000 D:PLO= BIT1I :PLO ERROR 










03 












UNIBUS RKOS DRIVE D TIC PART 2 MACYLI 27( 1006) T-76 14:1 27 ¢ 0027 
i Sa ee Pee rAd Fan ee barve Statue BYTE G1 MESEAGE B CRKMRG: 36) = 
420 010000 D.NMOV BIT12 :SEEK AND NO MOTION 
929000 D. BITl *LIMIT DETECT ON SEEK 
040000 D. BIT14 :SERVO UNSAFE 
.SBTTL COMMON MASKS AND OTHER BITS: MESSAGE A (RKMR2:34) 
1426 o09007 M.ORVs 7? ;DRIVE CODE, ALL BYTES 
1427 017760 M.COIF= 17760 “CYLINDER DIFF, BYTE 10 
1828 017760 M.OFST= 17760 OFFSET VALUE, 10 
14es 077770 M.SER= 77770 :DRIVE SERIAL’ 8, Byte ll 
1431 | .SBTTL COMMON MASKS AND OTHER BITS: MESSAGE B (RKMR3:36) 
is 900003 M.ID= 3 yee ID, ALL BYTES 
ite piaobe Ne oa ree NER BeTE he 7 
1436 aaa M.SECT= ert SECTOR COUNT, Byte il 
1437 007000 M.HEAD= 7000 
190000 é. sHeRO Oe Corse AB, ALL BYTES 










CO3 
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T : COMMON MASKS AND OTHER BITS: MESSAGE B (RKMR3: 36) 






-SBTTL TRAP CATCHER 



















j 001006 sion Bt LOcATIoN COUNTER 






eae KALL UNUSED LOCA 
143 D. ONS FROM . anpt’t CONTAIN A “.+2,HALT™ 
16 esi SERENE A Lae CATCH pt Sa else VECTORS 
1447 900174 900000 DISPREG: TWARE DISPLAY REGISTER 
t 000176 900000 TWARE SWITCH REGISTER 
we oes; sit RODRESS(ES) 
1356 00200 ied 012726 aaSTART ;; JUMP mes STARTING ADORESS OF PROGRAM 
1452 900204 137 ol2622 a BYWRT 
1453 000214 2214 
1458 000214 000137 ol264e Hf BYTIM 
1455 900220 Sparse 012602 IM PARSRT s INPUT ALL PARAMETERS & START TESTING 
1458 o00224 ce cae 012662 ne BYWRTA 
1459 000230 2230 
1460 000230 000137 012704 hi BYTIMA 
1 a 
| 13e3 900240 vate 065250 wee 0.007 sENTER ODT11 
| 165 .SBTTL ACT11 HOOKS 
1467 F « SREFSAASSESRESESASESAARASSASERELFSERELLALESEREFAREREAELHEPRELELRE 
i468 : HOOKS REQUIRED BY ACT1I1 
1469 o00244 SSVPC=, ;SAVE PC 
1470 OO0O4 24 
1474 occe46 036150 SENORO ;;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
| 4473 po00se eee “WORD 100000 ;;2)SET LOC.S2 TO 100000 
| 1474 oog244 2 33 RESTORE PC 
1475 001000 st 
| 147% .SBTTL AP BLOCK 
1478 : pe NOCATIONS 24 AND 4 AS REQUIRED FR APT 
1479 sSET TIONS 24 AND 44 AS REQUIRED FOR APT 
1480 a HUESSASVERSOTEFOGESERSEESESESOTECCISOSESIRRSESOSNSSLESIEEGES 
ae ae } a eee aR PAI TO POINT TO START OF PROGRAM 
| 1488 ooo0ey Dodeoo 266 HPS PT START UP 
 74e4 000044 TO APT INDIRECT ADDRESS PNTR. 
| oo0044 
| 1487 ; euanunbeiescoallosabvetecenisnestensnoenmmnnneneeneemneeuenennt 

1468 SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 

ra S ORTERF ACE SPEC. 

| 1490 

| iyas 554000 oo00000 MAILBOX ADOR 

{| 1493 001002 001210 Wises 0-15) — 

| 4494 001004 000430 T 






BRIR ATER BSR SRR | 


ul 
0-0 > 
fur-© 


1513 


es +--+ b=) +> <> +0--— ~ 0-+ 0» = B-2 DP 9-+ BB 
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13:50 APT PARAMETER BLOCK 
TM: .WORD .  ¢¢RUN_TIME IN SECS. T PASS ON | UNIT (QUICK VERIFY) 
SON TH: “WORD et ::@ODITIONAL RUN Fine ity 3 A PASS Be tos abet TONAL UNIT 
"WORD SETEND-SMAIL/2 ;;LENGTH MAILBOX-ETABLE (WORDS) 


-LIST MD 


USE LOOP X TO OMIT SUBCLR 


:THIS MACRO FILL TED MSG AO, BO, Al, B1, A2, B2 $8 83 WITH STANDARD BITS 
:A=D.DSC AFTER ATTN OR O AFTER DRive CLEAR OR ANY IMPLIED SEEKS 
:NOTE: A CAN BE ANY BIT COMBINATION DESIRED 







I=T.B3: TO READ MSG 


H=T/BS TO READ 
IUSE-  F2<ERROR DESCRIPTION) 


SUSE CALIB X TO OMIT CHECKING MSGS AD, BO, Al, Bl, Ae & Be 


SQUICK START SPINDLE 


A=WRHEAD/ < CFMT! WRHEAD > 
USE WRHDOR <A>,X TO OMIT CHECKING AQ, BO, Al & Bl 


 ASRDHEAD/<CFMT! ROHEAD> 
SUSE ROHDR <A>,X TO OMIT CHECKING AO, BO, Al, BL 
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: RETOCYL/FRCYL , BEHEAD®, C = 0 FOR 22 SECTOR, 1 FOR 20 SECTOR 












fQuICK SEEK. | ENTER WITH CYL® IN RKDC 


eae 19 “The O'R Tener TO WRITE ON ANOTHER SECTOR 


TEST 
F Man ECR Al 8 B1_AT THE END OF WRITING 
aa a ase qo LL OMI Beak ihc THRU BI 


: A=RODATA/<CFMT!RDDATA? 
SUSE ROATA <A>,X TO OMIT CHECKING AO, BO, Al 8 Bl 


Rau DATA FOR TYPEOUT 
USE WRCHK <A>, DATAD,X TO OMIT CHECKING AO, BO, Al & Bl 
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S88 8888888 
> +b b= b— b= > <b = 0 0 ~ -o 
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+ +0 + b= bb = bbb = bb + <b = © + = 0 bs bs bs he 
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COMMON FAG | 


+ SBTTL COMMON TAGS 
; ers eititiiititiiiiiititiiitiiiiiitistiiiiititiisiiitirtitir ies 
Pet TRetE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
; N THE ; 


-21100 
SCMTAG: 3;START OF COMMON TAGS 


par SQTERS DSAIAT ABE 


;;CONTAINS SUBTEST ITERATION COUNT 


SLPERR: HConral Score TURN FOR ERRORS 
ae Sie (iat see Bae 
a SAIS oats Fe eagpe™™ 


SSENS Saba OT 
PO A PP use 


+ NTERRUPY MODE INDICATOR 
; INTERRUPT MODE INDICATOR 


MBSE & AUD MELT 


an aaa 
TATUS as. ADDRESS 


> ERPs QOndNo000000 


8 


Le eee 


TPB: 

an 3 ee a OF FILLER Rana TERS REQUIRED 
TPELG: o° STERNAL EAGLE” FLAG (BIT<07>S0=YES) 
ie fea 

bie: : ;TUSER beri 

tes: ‘wow 8 HUBER DErIneD 

STINES: 0 {HAX. NUMBER OF ITERATIONS 

Hae Oascrz €207> <377><377) Baty es 

Soar: “ABET (16 t CARRIAGE. RETURN 


«l2> 
:  LEASADEEESSEEESTESESSERURELEESSISETOREEUEUEUEESEREREREEEEEEEES 
‘ABTTL APT MAILBOX-ETABLE 


1 A RR RATT 
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SNAIL: MAILBOX 
SMSGTY: .WORD  AMSGTY ts essace TYPE CODE 


ehareeene 
CEREERe ds 


SeEe 
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N“N 


> +0 > +0 bb = 
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Pll ORE BHR 7 13:80 apt MAILBOX-E 
001212 900000 SFATAL: - WORD AFATAL ;;FATAL ERROR NUMBER 
oole1s 900009 STESTN: . ATESTN 5; TEST NUMBER 
Bp ts38 900 sorvct: “HRD Apever tt pey OEOUNT 
001222 SUNIT: .WORD UNIT $3170 UNIT NUE NUNBER 
001224 SMSGAD: :WORD AMSGAD ;:ME 
001226 SMSGLG: .WORD AMSGLG ;;MESSAGE CeNCTA 
ies Seve ::APT ENVI T TABLE 
NNN H . ii 
Bat 1 500 : BYTE BENVM MODE BITS 
001232 900000 SSWREG: .WORD ASWREG Hy SWITCH REGISTER 
001234 0900000 SUSWR: <:WORD AUSWR SWITCHES 
001236 900000 SCPUOP: WORD  ACPUOP - ::CPU TYPE , OPTIONS 
i aise 15-11=CPU TYPE $ 
3# 11704201, 11/0S=02, 11720203, 11/40=04, 11/45=05 
i - enh 70508, *PDQ=07, Q=1 
2 BIT “S=rcOmrL Se OAT ING HE COCK oCESSOR 
01240 900 in TE 1 “MIGH BOORES Re BIE 
001241 000 SMTYP1 “BYTE ANT vet +t PPE er kai 


;# hen. TYPE carte =- (HIGH BYTE) 
NSEC CORE=00 


ee 


3% 
amen. freon: va saa, #0 ee’ BYTES, THIS WORD AND LOW OF “TYPE™ ABOVE 
zine Sess: ee ges oto 
Boise * ——-BRRSS: BVP | Ghanes Sacer Bvie™ 
o01281 SHTYP3: :BYTE ANTYPS | 7 
B51 Se4 Shared: a: anAncd Sap cart t 
ie for ta fem tice 

te ‘3 

ae: ee go Pe iioer. 
BolS70 SCOML: “HORD ACD]. © SECONTROLLER DESCRIPTION WRD81 
Bis Siiue: “Hone Roo i DEVIEE DE ETON WD 
i Ba vee 
BetatB ‘x He v4 SCRIPTOR be 
D01312 SD0W?: “WORD ADD? DEVICE DESCRIPTOR WORDS? 
001314 SETEND: 

apices 177440 s DEFAULT BUSS ADDRESS 
po1314 RAVEC: 210 T CONTROLLER INTERRUPT VECTOR 
001320 PKS: 172540 PRIOR STATUS REG 
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“CLOCK SET BUFFER 
seat AEE 


;L-CLOCK INTERRUPT VECTOR 
;P-CLOCK INTERRUPT VECTOR. 


MEMORY PARITY VECT 


HREMORY PAR PARITY TY OPTION coh grORt ADOR 


31 FOR 220 START, NO DEFAULT 
1 FOR 204 OR ee 31 nid 


He FOR PRI PRINTING stat 1ST PROGRAM TITLE 


;CONTAINS THE POINTER TO THE DRIVE FLAG 
5 Nong thie OF THE DRIVE TO BE CHECKED NEXT. 
YLINOER 


TO CYL 
: YL, USED IN N SQUARE TEST 
:PREV CYL., USED IN N SQUARE TEST 


£0 CPs 
‘aa the 10 50 NUMBER 70 COUNT OFF PRACTIONAL SECOND 
Bae to ttoreare TIME IS UF 


; PREVIOUS zekiee 


ae, aie RIGHT JUSTIFIED FROM RKMR3 


; TIMEOUT CONSTANTS 


;CYLINDER NUMBERS USED IN 
;CURRENT CROSSOVER TEST 


;USED IN TIMING TESTS 


I03 
SAE AT ESUEROERES PO 2 AHAEZ UO FPO 76 oe me ot 


1773 O014SO0 000000 TIM4: O 








1774 
LPCNT: sh TR D IN CALCLK 
te Bot aed tPF IN: 8 +886 the Th ude 
: LO ORDER FOR TIMING TESTS 
1278 rates - 5 iH ORDER FOR TIMING TESTS 
1780 001 SUM: tL FOR TIMING TESTS 
1781 001464 0 ‘HI ORDER FOR TIMING TESTS 
: sACT /DATA WORD 
ie} EBLE Be SUEY Di 
1786 001472 OFFERR: 0 SET WHEN WRITE CHECK ERROR ON OFFSET 
i783 em 8 ig tne 
A: : ¢ H.62. RT. JUSTIFIED 
15a HDl:  O ‘SHIFTED HEADS Ba RRMA TER FED FINE 
35 peti ef OI ETE pis? T FOR FORMATTER ROUTINE 
1734 WDCNT: : ORD EUNT 
17a? boleie BATAGL: & Oto PATT 
1798 001514 DATAL: 5353, ALL 1°S 
1799 001516 DPATI: 133467 
1800 001520 DPAT2: 
1802 001522 WORD: 0 ;HEADER/DATA WORD 
1803 001524 HOW: 0 "HEADER WORD FROM RKDB 
1 1 RR: ;CANNOT READ BSE INFO WHEN SET 
ieoe Sois0 Cirere: Ee oe EET averse CKCERR IN *GSTATI® 
as $ ; 
1808 Boies | Sooe Sartes'p SOROS TO Be TESTED 
: d : HE WORD T 
a Be Bie ore: Al PLETE EOE WO. T Eg 
1 1g 002146 0001 SRTTAB: .BLKW 66. j ABOVE RHTAB SORTED STARTING FORM 
eta 002352 O00400 BSE20H: . 256 3 TOR MARDHARE BSE INFO 
181S 00325 BSESCH: . 256 :22 SECTOR HARDHARE INFO 
iste 004 35¢ eat BSECOS: “BLK 256 20 SECTOR SOF BSE INFO 
1817 00S36z pe 256 ‘22 SECTOR SOFTWARE INFO 
1818 006352 000400 ROTAB: .BLKW 256 ‘FILLED AFTER READ DATA CMD 
007352 900000 UNLD: sSET TO 0 IF ARE LOADED 
—— pev0n: 0 re A deen ae 
HE cree coon 700: 0 bE Berar ebne 
Bes ; :SET TO 1 IF HALT PENDING 
1827 ; THE F ARE USED 
1828 :BY "STOP ROUTINE TO BRING 
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iS 
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APT MAILBOX-E TABLE 


E.83: 0 
THE FOLLOWING ARE IDENTIFIERS FOR DRIVE MSG WORDS TO BE TESTED. 
t.A2=BITO ;TEST MSG A2 IF SET 
I. Be=BIT1 
T.B3=B81T2 


FALL THE FLAGS BELOW ARE CLEARED INITIALLY BY THE CLRFLG ROUTINE. 


4 
me fad 
perp iELAG - SET WHEN PROGRAM LOADED BY PAPER. TAPE 
DRIVS: 0 :CONTAINS THE NUMBER OF DRIVES PRESENT 
;THE FLAGS BELOW ARE SET TO 1 TO INDICATE THAT A PARTICULAR DRIVE 
:I1S PRESENT AND IS TO BE TESTED. 
pal: sELAG T T9 1 WHEN DRIVE 0 PRESENT 
ie PEE § 
BRIVa 2 :FOR BRT 4 
DRIVS: 0 sFOR DRIVE S 
Brive: 8 FOR DRIVE 
LCLKF: : sL-CLOCK FLAG PRESENT FLAG 
: *P-CLOCK FLAG PRESENT FLAG 
bo re : ;SET IF EITHER CLOCK PRESENT FOR TIMING TESTS 
IZFLG: :SET IF DEFAULT DO SIZING IN TEST 


SEG 0036 
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-Pll 07-OCT-76 13:50 ERROR POINTER TABLE 


-SBTTL ERROR POINTER TABLE 
Tig Ld AINS THE ED BY WING EACH ERROR THAT CAN awe 
N 


‘Seftor a Si ae a eIPE 1 Bg reve 
- 


FOLLOWS 
-# : T 
: POINT 18 DS BE St 
+ OF + POIN 3 8 THE Dat BATA FORMAT 
007542 SERRTD: 
ERROR 1 
go7sye 55115 ; a ;DR # IN RKCS2 CANNOT BE READ BACK CORRECTLY IN RKMR2 
007546 064002 Tl 
007550 064374 1 
ERROR 2 
007552 ‘ EMS ;DETECTED MDS 
007554 061123 DH 
BOPEER OPeEE 064374 OF1 
ERROR 3 
Oe STIs oh ecesinodt 
007566 064002 OT1 
007570 064374 OF 1 
;ERROR 4 
007572 EM7 DETECTED DRA & NED RESET (WRONG PORT SELECTED?) 
go7674 061123 DH 
Bo7e08 OPE 064374 Prt 


pe 
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ee 
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;ERROR 6 









;DR PRESENT BUT NOT SPECIFIED SY OPERATOR 


;DR NOT PRESENT BUT SPECIFIED BY OPERATOR 


;ABORT TEST, COULD NOT REFERENCE CONTROLLER REGISTER 
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34 pO7b7e 056340 
1999 007676 064 
2001 
oe te bas 
2005 007710 064470 
2007 12 057640 
2008 bore 1 062574 
2009 007716 064072 
enie 007720 064410 
ais Bers Bais 

15 30 064470 
2016 
Bi Hee Ber 
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;ERROR 10 
EM11 


07-OCT-76 14:14 PAGE 39 
;DRA & NED BOTH SET 


;NO RDY 
;AFTER WRITE DATA CMD 


;CERR SET 

;NO_RDY 

;AFTER READ DATA CMD. 
;CERR SET 


;NO_RDY 
;AFTER WRITE CHECK CMD 


;WRITE CHECK ERROR SET 
AFTER WRITE CHECK CMD 


;WRITE CHECK CMD NOT FUNCTIONING 
;WITH INTENTIONAL MISCOMPARE 


READ DATA CMD 


: DATA NOT COMPARE WITH WRITE DATA 
AFTER 


SEG 0039 
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ERROR pSIntee tRace 
OF3 
;ERR 21 
;DATA CHECK ERROR 
OT) 
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BORING BFFSET COMMAND 


;UNEXP MEM PCRITY TRAP 
;CYL ADDR IN Be DID NOT REMAIN CLEARED 


;MSG Al ERROR 
;MSG B1 ERROR 


;TEST #, TRAP PC 


DO4 
14:14 PAGE 42 
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;CYL_DIFF/OFFSET IN RKMR2 NOT CLEARED 


;AFTER RECAL CMD 


;ERROR 4 
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ERROR POINTER TABLE 


; ERROR 
Pao CYL ADOR IN RKMR3 NOT CLEARED 
ae ‘AFTER RECAL COMO 
ERR 51 . 
; WRONG CYL® IN HEADER WORD (MISPOSITION) 
AFTER SEEK CMD 
OTS 
DF20 
” EM17 :MSG AO ERROR 
bie? ‘AFTER WRITE DATA CMD 
ERR 53 -™ 
: M ;MSG Al ERROR 
T13 
* OF 21 
: M17 :MSG AO ERROR 
Bret ‘AFTER READ DATA CMD 
OF 21 
; ERROR _ = . 
Brit DETER RECAL CMD 
OT1 
DF10 
EM19 :MSG Al ERROR 
Sat 
ERR S7 hoes 
‘ EM17 :MSG AOD ERROR 
Die {AFTER WRITE CHECK CMD 
ERR 60 - 
: M19 :MSG Al ERROR 
iter 
ERR 61 nhs 
ite ‘BORING OFESE 
:DURI FSET CMD 
0713 
aol OF el 
; Ene :MSG B1 ERROR 
OT13 
OF 21 
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;ERR 73 
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;BSE_ ERROR IN ry: ‘.. NOT ON BSE TABLE 
;AFTER WRITE DATA C 


IBPTER FoRRAY EHANGE AND READY Rec*D 


;DETECTED BSE IN READ BUT NOT IN WRITE CMD. 


;SERVO SIG PRES NOT SET 


;REV NOT SET 


;REV NOT CLEARED 


;NO_ATTN 


!AFTER UNLOAD CMD 


;NO ATTN 
;AT END OF HEAD LOADING 


;NO DRIVS IN SDEVM 


;NO DRIVS ON BUSS 
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;OFFSET NOT CLEARED 
AFTER READ HEADER WITH MOVEMENT 


sFORMAT NOT SET 
SAFTER WRITE DATA CMD 


AFTER WRITE CHECK CMD 


;OFFSET NOT RESET 
AFTER WRITE CMD WITH OFFSET 


;CYL ADDR NOT O 


;CANNOT FIND SECTOR 23(8) 


AD SWITCHING TOO LONG 
TER WRITE DTA CMD 


OR SEE cio CYL 128 


;CANNOT FIND CYL 256 
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TRACK SET 
TE DATA CMD 


;CYL ADOR IN RKMR3 INCORRECT 


;OFFSET IN Ae NOT = RKASOF 
sAFTER OFFSET CMD 


;AFTER ORIVE CLEAR CMD 


CONT NOT RDY 
TER PACK CMD 


;CONT NOT ROY 

;AFTER SEL DR CMD 

;AFTER SUBSYS CLEAR 
;AFTER START SPINDLE CMD 


;A2_OFFSET NOT = RKASOF 
AFTER SEEK TO SELF 


;AFTER RECAL CMD 
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;ATTN NOT CLEARED 
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;ERROR 1 
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oie 


TETETE CET 


oo oo o- - - on 


z= 
owo 
_ 
od 





ses FE 


com) ttt Con om hoe hem | sree fn hee hee hem} (on heen em hem eee ee eT cede a oe ee ieee hee Me bee bee eee | 
So ee Kean oom Con eee Doon oe 0 Sn uate em een I Sen ae oes Boe oe oe eee toe et et od de fo neem hem ee) 


2000 928000 2000 8000 2000 28000 2000 2800 


HERR CCR CCC CC ROCCE OCC COCR OG CORRROCRUROCRIE 





000000 
000000 
057421 
062515 
064050 
064514 
064514 
011502 057135 


— — 





MO4 


BRYA Ee th OOC} 7 Oct-76 14:14 PAGE Sl 


SEQ 0051 


Dznele. ra Mbyeottore 13:80 


tine 5 

 & a 

atc = > 

es aw & 

+ §& w & 

a Sh § 

& «Je ee 

e & ee 8 #8 

2.2 92° UT We un ws 
a Eat ee aE a ata a a 

om & - = 
stat £ Get 





Gas iain OHI CO Rok RR RR G 


wt ewe te ae eee Roo D a eee Rok oe | oe ed oe on cori | oon een: Muaee ieee 2 wed et — 
ooo Soom Iamn Beam om | cr on Moe ion | Sen ae Roam, Kem I et ed Ht ey tte et 
2000 28000 2000 28000 2000 2000 oO 


Piiccoumiitiinit cseccernenicr 


duct diss Gast Bees Gees Eee 


i 
Es 
Z 
o 
= 
z 
cs 
5 


;AFTER SEEK CMD 


;CERR SET 


Gas S33 


cmauemmaaeIa: 





ae ee 





SEG 0052 


NOY 
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ERROR POINTER TABLE 


07-OCT-76 13:50 


UNIBUS RKO& DRIVE DIAGNOSTIC PART 2 


OZREIC.P11 


;MSG AD ERROR 
;MSG Al ERROR 


an CY] ~™ r wn wo ~ ess So leg 
ces ; ss : Et Gd bet 
Bae Set Ces Bae .- fo 8.7 8 : 


000000 


BS Bn 


BGGR RES ext NRER RESP Z2FR BERS Bes 


Oe teeta d deteted  edentended Sos Se eee bee ee Eee bee bee hee ne bee bee) 
ot de ed oon icone Iaen Ieaun 2 he Sen en aes Ree end a a et wedded ou0O 
2000 38000 2000 2800070 2000 28000 2000 


ieee ne CM ena eee RMR ORRR CUCM URERMRUCERR EERE 





41 011636 aod 
ane 0644 
Booeo 
000000 
JUUUUL 
NN00G 
000000 
000000 
0C0000 
000000 
000000 
000000 
009000 
000000 
000000 
000000 
o0cc00 
000000 
000000 
000000 
000000 
ooco00 
000000 
000000 
000000 


a 


4 
8 Be 
/ g Red Sue ea 
bat} o cw 
; ia Pe a 
; e &§ &k 5 fog 
dfs 
CO io 
: 
su 
2 
/ Bs wt A a 
his ooo ooo 200 omit 8-2. ER GEEERAEESERMoooonaEe mii nt 
“BEARGE ARAL at ae? +e t : 
# 
oth 
0 Bg 7, cf ae ce 
1 o& He Gee Gee Mas ie 









= 
a] Gaee fied Red Geek KORN Ret 


= ham ham am) Sm eee Kee Kom } com Kem Kaen oe I 
Oo00 28000 28000 


SSeTTeRe Mais SRR RAR EACSEARRRAR AREA AAARAARAR 


ss a 


=~, 


Pi 








RKO TIC PART 2 MACYLI 27¢ ) O7-0CT-76 14:14 PAGE S4 SEG oOs4 
IC. Pil 1 I Sasa os PREOR Pp Tnteee TABLE 
sERROR 237 
12122 0 
121 0 
lel 9 
lel fs 
sERROR 240 
121 
121 
‘Ht 
sERROR 241 
012142 i) 
bleh 
1 igs 
sERROR 242 
012152 9 
12154 0 
12156 0 
12160 0 
sERROR 243 
12162 :C IN RKMR3 INCORRECT 
bisies ir tER ctER CMD 
12166 T8 
012170 is a 
012172 ‘ EM74 :RTZ NOT SET 
012174 DHY1 :DURING RECAL CMD 
BtoE Bt 
1 OF 10 
;ERR 245 
012202 9 
b1ge04 0 
12206 0 
012210 0 
sERR 246 
p1z218 0 
12214 0 
Ol2eib 0 
012220 0 
sERR 247 
1 DOOOND 8 
1 x 
1 0 
012230 900000 0 
12232 900000 on, 
Bt 900000 ? 
BiSSa8 000000 0 
;ERR 251 
012242. : 
1 
Slee 
1 0 


DULL LiUWuLer RSET EREES SESS S/S SS BEREEE ABER SPEASEEEAREREEEEE 


DOS 


07-OCT-76 14:14 PAGE SS 






SEG COSS 


E 


2 
PO 
;ERR 2Se2 


-76 13:50 


VE DIAGNOSTIC PART 2 
-OCT 


a i 


O000 2000 


;ERR 253 





OM FT 1N.oOfF.a@ 
Hatten tote te trend 


s 
os & 
cB &§ 
@_ 
fe # 


Se Se 
une = 


;ERR 264 
;ERR 265 


Rx hao: hao 0 ve 8a 4 a 8 oe 
he om oe oe Fe teed Bd 






~ - Ging SE 2a 


Att te teted  etedetend  eedente-ded 
200 28000 28000 2000 


RCA RG TRS 


a a ee er ee ee 


S 


UE RT 
P} 
2865 — 
as 
1e41 
2869 
2870 Olevle 
bere 12414 
1 
1 
1 
a ne 
012426 
2878 012430 
"E80 le4%3e 
2881 012434 
124 
01 


PURCE CER P eR ep emery t Cty it 
. 


SBBEBBEIES 


WONOW £WM-O 


; 
; 


EOS 
WacY127(4006) 07-OCT-76 14:14 PAGE Sb SEQ 00st 


m 
2 9 
@ a 


;MSG 80 ERROR 
;AFTER DRIVE CLEAR CMO 


;MSG 81 ERROR 


TOPSER WRITE HEADER CMD 


:;MSG B1 ERROR 


;AFTER RD. HOR. CMD. 


;MSG AO ERR 
AFTER DRV CLR CMD 


;MSG Al ERROR 


APTER RECAL CMD 


;MSG 81 ERROR 


SAPTER WRITE HEADER CMD 


:MSG Al ERROR 


ee ee ee 
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07-OCT-76 13:50 ERROR POINTER TABLE 
0l2eS34 062776 DH393 
012536 064210 OT13 
012540 O64SE4 DF21 
ERP 301 
TEs, 
Ol2eS46 064210 OT13 
064564 OF 21 
;ERR 
EmM19 
DH30 
T13 
2l 
;ERR 303 





papa neo J 


Darel. 


PUPAPATRRR ULL SC RERERMAR Macaca tuMules ee a 


Pie wbyeottese tarso 


Ol2762 004737 


012766 012706 001100 


001336 


001340 


001342 


001336 
001340 


001336 
001342 


ERROR POI 


. SBTTL 


BYWRT: 


BYTIM: 


BYWRTA: 


BYTIMA: 


START: 


PRGSRT: 


1§: 


. SBTTL 
+3 


Di HERG TSO Ie 


(4006? ave 07-OCT-76 14:14 PAGE SB SEQ 0058 


PROGRAM SETUP 
0 ie aM ;SET FLAG FOR 220 START 

LR YPTIM 
BR PRGSRT ;START PROGRAM 
CLRB PARAM 

V #1, BYPWRT ;BYPASS WRITE TESTS 
CLR8 = BYPTIM 

PRGSRT ae 

CLRB = PARAM ae + 
CLRB = BYPWRT 
MOV #1, BYPTIM ;BYPASS TIMING TESTS 
BR PROSRT 
MOV #1, PARAM 
MOV x T 
CLRB =: BYPTIM 
BR PRGSRT 
MOV #1, PARAM 
CLR T 


;CLEAR FOR 200 START 


T ALL INT ENABLE & INIT 
af Rae 
#1$,-(SP) 

RTI ENABLE ALL INTERRUPTS 

TKINT T PR TY 4 
JSR PC, STKIN ERE, Kp MEG OF BOR IORI 
eR” 
ioe INE EMME Bit WILE 


tee SE! 
i NTERRUPTS CHANGE CPU PRIORITY TO LEVE 6 (IN ’STS*) 
iRkoe INT ene INTERRUPTS S WILL CHANGE CPU PRIORITY TO LEVEL S IN ’SETINT’) 
YBOARD INTERRUPTS WILL CHANGE CPU PRIORITY TO LEVEL 4 (SEE ABOVE) 
om *SYSMAC’ TRAPS WILL CHANGE CPU PRIORITY TO LEVEL 7 (SEE BELOW) 
-SYSMAC 'SETUP’ 


MOV ;;FIRST LOCATION TO BE CLEARED 


SUNELP BESRTEIES MT? TAHA RERP amahae HY a 8 0 om 


3001 012772 


es 
BP 
ee 


Seanaeok 





Oe ee eee ee se ee eee 


2 
xz 


oat 


3; INITI 


aaappesgsgsasa” 


“4 


ages 


ER 


% 


5 S83583 & 


Bosses S38 Ske 
wo 


z 


mee 


: 


i 
1 
1 i 

ies Lee 044430 000020 

13088 er wip rae 
3010 1303 B15 40 000034 
3011 bt 3ba8 pistes ant 000036 
Bi Glee Glee Gauss Baie 
Sia Ofsbee BIS737 Botie BSeLiB 
3015 013074 005037 001178 
3016 013100 005037 001176 
a 013104 112737 aTatie 001115 

ig Bi 3135 pista? 0131 Botte A 

Era :3E 
2 TS BTS 

131 1 13166 OO0004 
3024 rested 012737 177570 001140 
3025 13146 012737 177870 O01 14e 
Ed Bi aiee rates 
Se: 013164 900403 
a tet Seboss 013174 64S: 
Be tee bee Bun wie 
3034 013210 012637 66S: 
oe : 013214 eae 001216 soa 
3037 7 eu 
3038 OL 32s ba 
3039 013230 012737 001232 001140 on 
oa 13236 Ol 013302 O00004 MEMF 
s0ve 6} 3536 Biss % 000340 000006 
3044 013252 012701 172100 
3045 013256 005011 3s 
-, 3046 01 012711 ooo001 
3047 013264 12737 O44066 000114 
2048 O13e7e 12737 000340 000116 

1 000401 
te pet 013302 Oe2626 1$ 
os Hm 
3054 013314 001360 
a, TS Be 


C 


LD . ;;CLEAR MEMORY LOCATION 
. wrabtieny $3 BACK IF NO 
as TACK sit THe Stack POINTER 
A FEW VECTORS . 
OPE, a810 ;;I0T VECTOR FOR SCOPE ROUTINE 


is c 
ash eae ee era FOR ERROR ROUTINE 


aS TRAP DETRAPVEC’ 5 TRAP VECTOR FOR TRAP CALLS 


at 3 Cres Level 7 FAILURE VECTOR 
ier ce en 
SE er ee NUMBER OF ITERATIONS 
HY tA THEE ON ERROR ADDRESS 
#1, SERMAX + ALLOW ERROR PER TEST 
#.; SLPADR isINET IZE THE LOOP ADDRESS FOR SCOPE 
8. SLPERR HH ERROR LOOP ADDRESS 
HARDWARE SWITCH REGISTER. IF NOT F OR IT I 
"-1"° SETUP FOR A SOFTWARE SWITCH REGISTER. 
DRERRVEC,-(SP)  ;;SAVE 
#64S JHERRVEC ;;SET UP ERROR VECTOR 
#0SWR, SWR ::SETUP FOR A HARDWARE SWICH REGISTER 


#DDISP, DISPLAY ::AND A ISPLAY REGISTER 
TSS :: TRY TO ERENCE HARDWARE SWR 
aot Fats eee eee 
He HF HAO TIREOUT - 
#65, (SP) ::SET UP FOR TRAP RETURN 
aSuREG SHR os ay? #POINT TO SOFTWARE SWR 
a 1SPREC, DISPY ;;RESTORE ERROR VECTOR 


SPASS 3s CLEAR S_COUNT 
#APTSIZE,SENVM ;;TEST USER SIZE UNDER APT 


33 SWITCH 
#SSWREG, SWR ::NO,USE APT SWITCH REGISTER 
#1$, ERRVEC ;SETUP TIMEOUT VECTOR 


#PR?, ERRVEC+2 

#MEMBAS , R1 sADDR OF MEM CSR 

(RI) ‘SEE IF CAN REFERENCE 
#1, (RL) NABLE BIT IF YES 


srENERR, HEVEC sPOaD VECTOR IF NO TIMEOUT 
2 

(SP)+,(SPI+ ADT STACK 

R1;8MEMBAS+4O  ;SEE ig TRIED ALL 

BERRVEC#2, ERRVEC “RESTORE TRAP CATCHER 





105 


27(1006) 07-OCT-76 14:14 PAGE 60 
COMMON TGS 


ae Be 


'FIND OUT IF XXDP, ACT, APT; CHAIN OR DUMP MODE 


CLRFi G ;CLEAR DDUMP THRU SIZFLG 


SEG 0060 


_ aS 


pi rr ee a ee 


DORETe.P ile Pil 


3064 


anon f 


roe! 


RTE 


ee ere _—— 


ry, st eae 14:14 PAGE 61 SEG 006! 


START1: TST 42 


+ Fwd. OUT 
CMPB Weise Riedh Tee. proc Tia 


;SET RKO& DUMP MODE FLAG 
REPLACE DRO PACK W/SCRATCH & DO<CR> 


YPE 
1$: The AG 
es: INC PPTP ;SET ACT/APT/PTP DUMP MODE FLAG 


CK IF ALL panes" RS DEFAULTED. IF NOT, BEGIN INPUT DIALOGUE 
aa OPERATOR. T PLY TO "DRIVES TO BE’ TESTED’ SHOULD BE 


re ee ee ee eee — a ea ae 


0S 


RKO& DRIVE DIAGNOSTIC PART 2 MACY11 27(1006) 07-OCT-76 14:14 PAGE 62 SEG Ose 
Pll 07-OCT-76 13:50 INITIALIZE THE COMMON TAGS 

;ORIVE NOS. SEPERATED BY COMMAS & TERMINATED BY <CR> 

; EX: DRIVES TO BE TESTED: 1,2,4<CR> 


SSS sss SS 


UNIBUS RKO& DRIVE DIAGNOSTIC PART 2@ MACY11 27(1006) O7-OCT-76 14:14 PAGE 63 SEG 0063 
OZREIC.P11 07-OCT-76 13:50 INITIALIZE THE COMMON TAGS 


13a ait 001336 ste: TST PARAM 
14 013510 Oy PERRY “DEFAULT & SIZE THE BUSS 
Laid 104901 1 1S: ie MS iB! 70 BE TESTED 
13430 JSR Pc Savs : NOS. 
3089 013434 051634 TYPE mSG4 BUSS ADDR 
13440 4gy SR pc :GET BA 
1 1 170 YPE :CONT INT VECTOR 
13450 004737 0364 JSR Pc GINT -GET INT VECTOR 
3093 013454 000427 BR sTé 
3094 
3095 * 
30% 0 MODE 
3097 CHEK F LOADED BY XXDP OR OTHER. SET FLAGS NPUT DIALOGUE. 
2038 : DEFAUL afk PARAMETERS. TEST ONLY Mf Way Bre ARE READY 
:ON THE 
uf , 
3102 O13456 123727 OO00041 000013 ST3: CMPB 41,813 ;13=LOADED BY XXxDP 
3103 13464 001007 BNE 1§ 
3104 Ol 005237 007502 INC DOPCH ;SET RKO& CHAIN MODE FLAG 
3105 013472 004737 036224 ISR PC, TITLE 
3108 O13476 052016 TYPE MSG? ;DRO NOT TSTD 
1 1 BF Sty 
3108 013504 007504 1S: INC ACTIL ;SET ACT AUTO FLAG. 
3110 013510 012737 177440 001264 ST4: MOV #177440,$BASE  ;DEFAULT VALUE 
sii} 013516 16737 do0219 001314 HOV #210 RKVEC :DEFAULT VALUE 
313 bt 3250 ppeo39 pase4a INC SI2FLG ;D0 “SIZE THE BUSS” TEST 
311S 013534 005037 007352 STS: CLR UNLD ; INITIALIZE FLAGS 
116 013540 005037 007354 CLR BADHDR sUSED IN *STOP ROUTINE 
it O1 3644 005037 007356 ie cLR HPEND os ae “FOR VALID PROGRAM HALTS 
3itg pt 3220 piers B55 CLR gperegyo | RO OF 
3120 013562 005037 OOlec2 CLR SUNIT AT pee ORDER TEST 
ie 013566 012737 013634 o00004 HOV 81S ERRVEC {SETUP TTREQUT ERROR VECTOR 
3155 $1200 bpSe58 Ihe} CEL iBRESENTS SET FLAG. 
3124 013604 013700 001330 MOV LCVEC, RO VECTOR ADDR 
3125 013610 61 013676 O00004 MOV #2$, ERRVEC 
3126 013616 165476 TST apKs ;SEE IF P-CLOCK THERE 
3127 013622 005237 007534 INC PCLKF ‘PRESENT, SET FLAG 
ie8 013626 O1 001332 MOV PCVEC,RO :VECTOR ADDR 
3169 013632 O0041 BR 3$ 
3131 013634 1S: CMP (SP)+, (SP)+ sL-CLOCK NOT THERE, CLEAR STACK 
3132 013636 012737 013702 op0004 MOV #4$, ERRVEC 
3133 013644 165450 TST apks ;SEE IF P-CLOCK THERE 
3134 013650 005237 007534 INC PCLKF ihe NT, SET FLAG 
3135 013654 01 001332 MOV PCVEC,RO CTOR ADDR 
3136 013660 007536 3S: INC DOTIM s INDICATES TIMING TESTS CAN BE DONE 
137 013664 012720 043276 MOV #CLOCK,(RO)+ § ;SERVICE ROUTINE FOR CLOCKS 
3138 013670 012710 000300 MOV #PR6, (RO) 
3139 013674 000407 BR TST ;;GO TO NEXT TEST 





MOS 


AGNOSTIC PART 2 MACY11 27(1006) O7-OCT-7& 14:14 PAGE 64 SEG 0064 
-76 13:50 INITIALIZE THE COMMON TAGS 
rere es: CMP (SP)+, (SP)+ ;P-CLOCK NOT THERE, CLEAR STACK 
00076 BR 3$ 
022626 4$: CMP (SP)+, (SP)+ ;NEITHER CLOCK THERE, CLEAR STACK 
005037 007536 R DOTIM ING TEST ‘ 


: TIM CANNOT 
104401 OS2212 YPE  ,MSG13 ‘ALL TIMING fests BYPASSED 





UNIBUS RKO& DRIVE DIAGNOSTIC PART 2 
DZR6IC.P11 07-OCT-76 13:50 
3149 

3150 

HE 

1 

l 

HE 

Tp 

a5 

ate: Riait 

16 13716 12737 

ite 013724 012706 001100 
atte ee Olere - Popoag 
3167 013740 

aie 013742 

170 13742 1 

in flies flee Bir 
3173 013760 005765 0000 
Sra Olsen Oisres Ooonge 
3176 013774 005765 Soba 
si7z 18000 Goe7es Goole 

178 014004 14 
3178 O14010 005765 O000I6 
ty Riatee 005765 000020 
si fist fetes Bie 

183 014030 005765 000034 
tt Biupad 005765 ttle 
ie Re Bee 
3188 

18 A. we om 
3191 O14060 O22626 

3192 ythiead 104007 

sig 14064 000137 036062 
we 

1% 

3197 

3198 


SRS 
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BASIC CONTROLLER TESTS, SIZING & SETUP 


-SBTTL BASIC CONTROLLER TESTS, SIZING & SETUP 


H pret TOE FERENCE ALL CONTROLLER REGISTERS 
j ATE REFERENCE ALL CONTROLLER REGISTERS 

it THIS TEST VERIFIES THAT ALL THE CONTROLLER REGISTERS 

3 D out INA ITY 0 BF BE ACCESSED WILL 

x THIS regu Hi T N ABORTING ALL OTHER 

is ere aOR JN HORPING. T ulLy RES nites 


# 
; EHEHEKLLELRAELALASESALLAAL ALA LEELA LALL LA LLL ELSE LELE LE LE LEAL LES 


+4t1: SCOPE 
MOV # STIMES ;:D0 1 ITERATION 
MOV TACK, SP i AeSTORE STK PTR 
MOV #PRO, - ;RESET PSW TO PRIORITY O 
Hoy #5$,-(SP) 8 MAKE IT LSI COMPATABLE 
SS: 
MOV #1$, ERRVEC ‘SFT UP TIMOUT ERROR VECTOR 
TUP INDEX 
TST c ithe FERENCE ALL THE 
TS RKCSe(RS) CONTROLLER REGISTERS 
TST RKBA(RS) 
Tet ape Re N THIS SECTION 
13 RKERCAS) :IN TROTcaT RTE That at Tie ag! ROLLER 
TST RAKE CRS ) ite RESTING © SHOULD Nore PROCEED 
I I RKDB(RS) UNTIL THIS IS REMEDIED. 
TST RKMR2 (RS) 
Rr Raa, 
Tet RKEGPTCREY 
MOV HBADTMO,ERRVEC ; TUP TIMEOUT HANDLER 
BR TSTe2 TO NEXT TEST 
1S: CMP (SP) +, (SP)+ ven STACK POINTE 
ERROR s fs ABORT-COULD NOT REFERENCE CONTROLLER REGISTER 


; 1 aeemccema 5 aT aT? mca ete tsa teeta 
: TE SIZE THE BUSS 
Y IF 


TASTE AE Me alo RE EAD rd 


EVERY DRIVE FROM 0 THRU 7 15 AMINED ANG 
CONTROLLER ERROR (CERR) IS EXAMINED AND IF NOT SET 
DRIVE WILL BE TESTED. IF SET, THE oat WILL BYPASS” 


DEFAULTED 
IN THE 


SEG O06S 


5 
bs 


bs 
é 


sass ik 


recreate 
WD “ICU £ Lfue~ 


SOUSA SS saat cae Com aR TaN SOO ORF SNS 


RKOE DRIVE DIAGNOSTIC PART 2 -MACYLI 27(1006) 07-OCT-76 14:14 PAGE 66 SEG 
Pil AYE BgAgh Feo cio be Buss 1 CSG 


NG SET; OR BOTH NED & DORA RESET IN- 


2 
ok . TESTING THAT nPRIVE ONLY I IF THE ERROR WAS A RESULT OF 
5 RATING. fr THE OTHER PORT I§ ACCESSED. 


: Be i a a eee 


014070 o0000%4 g 

gN0re le737 000001 001174 MOV 8) STINES 1 ITERAT on 

14] 12706 001100 MOV astac ‘ie SrARE STK 

014104 005237 001532 INC owen ;00 NOT TEST CERR IN ’FRDY’ 


= 
o 


gu4ii9 iit 000200 001231 08117, SENVM SEE IF wee APT SELECTED DRIVES 
3 014234 128 ELSE DO NORM SIZING OR VERIFY 


141 - 48: s« TYPE 0 iMT 

bi4130 Goeas) att cL priv 2 oF “peives presen 

Biuias gi5r8e Bosse MOYO SDEUNCAE ey FLA nap 

141 000001 1S$: BIT sB1TO,R2 i SEE F IN DEVICE MAP 
14152 00141 BEG H é wd 

14154 007510 INC IVS it INCR DRIVE COUNT 

14160 o i salle INC (RL ; 28 SET DRIVE PRESENT FLAG 
stated yer MOV ag Pree $3 SAVE SAVE RO FO FOR _TYPEouT 

14170 104403 TYP ::G0_ TYPE : ASCII 
Bisire 001 .BY i390! l ~~Scta, 

14] 000 “BYT SUPPRESS LEADING ZEROS 
14174 00572 168: TST (R1)+ ;ADV POINTER TO NEXT FLAG 
14176 505200 INC RO :INC DRIVE 8 

Bhs Genes SP EEE” 

014206 o0600e2 ROR R2 sELSE GET NEXT BIT OFF DEVICE MAP 
014210 000756 gR 15$ :$ TRY AGAIN 

givele 007510 17$: TST DRIVS ;SEE IF MORE DRIVES PRESENT 
01421 1 BEQ 18$ BR I 

Oi4e20 000137 015154 IMP NUDRV ELSE EXIT TEST 

014224 104075 183: ERROR 75 ;NO DRIVES FOUND IN SDEVM 
OiNee 699000 HAL T i SETUP CORRECTLY 8 PRESS *CONTINUE’ 
01 137 013534 IMP STs Y AGAIN 

1 1 10 128: MOV SSCLR,RKCS2(RS) ; TEM CLEAR 

Bt asa3 BiS385 atte ae MOV 710, TEMP rE, 

aa fs aaeres Jeo Cie Ray a SET BY END OF SCLR 

1 007540 T G 

ieee 001562 2 feta ;;D0 NOT SIZE, GOTO NEXT TEST 
014264 104401 oS2l25 TYPE  ,MSGIO hte TEST DRIVES 





CO6 


SEG 0067 


% 
z 
3 z 
- ene S ¢ 
an we 2a w 
85 a 8 he 
, = PS Gsekh Bs 48, 
a ene ze epie we 82 
ES pee 8 g ch F aoe 28S a7 
ot Ee . Bee Be | BES 
% aq © ag, tes >t Sw o7iSe few: phe 
ee et 
bez @ 82-0 fe g- stake He be r &° 
, oS Boamer- te 4 H Bb wate FS BRS SUR 
$ Bes 3 
z a 2 
oS % se . & Se ae 
rf ; See tebe an u. 8s a 
Mee Pee ee bee | Ok ee abit 
: Bes & BERS kismortnsets on o. EginkSe 2 End eSe¥ 
B te a e te Lae > ee — vs i a 
ot ssp 85 sepdopenisepcemmenyests Eat, of pepymyiye cycecye 
es & $ % 8 


eB Ee 
Pe LE a tt a oe 
Socamemierotams 65 Ge GICESes ann 


SOUS Sovbspemeeeorrsrrscess free FP PPPS GS 


pean oem. en een ea pan eam eames haem. an foam foam S-om oem pene. fon fom foes oo, fom pam ban Mon ban bon bon Bon bon Be Don oe oe oe ee Bn De Dee ee pee ee) 
20009 BOOMAQWOIMO2OOWMQ0W000000000 2000 20 2800200000 28000000 


Si ARERR AANA ANION MIA RARER Aa ORR aa 


000400 007372 
000001 007402 
010000 007372 


13534 
37 001000 9007372 2S: 


yok oFe ta:s0 
00S037 
Bie?al oor 
BT2708 001100 


RKOG OR 


Pil 


a a a ee | + en ee ee ee -— 














& 
% 


> 20 -b - -—-e- bp o- 
3 


Bho RI BA O82 22 


wo 


& 6 
£ 


0-0-9 ~ 9p 0 0-3 op --0-b<p 


: 


3 


or 


—_- 


a 
as 


ee oe ee =e 20+) +o +0 +8 +8 2 


Rooke Shea iaee 


oO0000 


or 


er 
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Te SIZE THE BUSS 


BEG 3$ 
BR 


S$ 

— ie AOS DETECTED 

Bet«éESS 
me ee OY SUFE DETECTED 

bRté«éSS 
Bs T sien, nese 

YPE sPssis, ;DRVe 
MOV , 


. Pit. FOR TYPEOUT 
Et ee 





3s: SR , BYP 

RROR 4, NO DRA 8 NO NED = OTHER PORT SELECTED 
108: NUDRV 
3 -SSSSSASRSSESSSSSSSSRSRSLSSSELELLERLSLSLRAAHSSSLSLESAESSPSASSSLGS 
; ATEST 3 VERIFY OPERATOR DRIVE SELECTIONS 
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weenie SEKFLASRERKASSSLAGARAS 


2 ms 


OP 1 
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;SELECT ORIVE CMO 


iMG ROY AFTER SELECT ORIVE CMO. 


5 + TO NEXT DR FLAG 


; MORE err 
3760 TO NEXT TEST 


; TRY DRIVES 
tIRITIEN oRe BES NOT MATCH RKMR2 DRs 
Ao INPUT 


a Btn bays 


;OR PRESENT BUT NOT SPECIFIED BY OPERATOR 


; TYPE BYPASS DRIVES 


; TYPE DRIVE® 
fnOS DETECTED 


;UFE DETECTED 
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b= ps be ee ee ee ee ee ee ee ee ee oe on ee b= bo be 


Gon BSSeRNSURTONNS A 


: : FO6 
Feet era DPS operator peive aerect ions — 


9g: ISR PC, BYP 
RROR 4 sDRA 8 NED RESET - OTHER PORT SELECTED 
SNE 18 ;BRANCH IF MORE LEFT. 
STHIS PART OF THE PROGRAM WILL BE REPEATED FOR EACH 
:DRIVE PRESENT 
:*SUNIT’ CONTAINS THE ADDRESS OF THE DRIVE CURRENTLY 
sae TEs? 
NUDRV: CLR BYPCERR ENTER HERE FROM LAST TEST 
;ALLOW CHECKING CERR IN *FRDY" 
ss SRLAASASRSSAASEAALASSRASKEASEAAEAELSRAAALAAESLAALASLARERSAFAAERES 
LATEST 4 FIND NEXT DRIVE TO BE TESTED 


# 
;# THIS TEST FINOS THE NEXT DRIVE PRESENT 8 PUTS THAT 


te TrpougHoWt UY THE FOLLOWING TESTS QRIVE TESTED IS 
3} TRE’DRIVE wtoSe' AbORESS 15° IN "SUNT T™ 


Hed 
7 CE re 


tét4: Sc 
MOV #1, STIMES ;:D0 1 ITERATION 
Nov wStAck, Es *RESTORE STK PTR 
TN-1! TESTN 
MOV 8$TN-1/$TS 
TST DRIVS ; S PRESENT? 
BNE 4§ ote BREA 
TYPE ALL DRIVES TESTED 
IMP $E0P1 :NO, GO TO END 
4§: MOV DRVPTR, RI ADDR OF NEXT DRIVE FLAG 
TST SDEVCT IS FIRST ORIVE BEING CHECKED 
BEQ ;YES H 
1$ INC IT ?INCR DRIVE ADOR TO NEXT DRIVE 
TST (R1)+ :T DRIVE PRE ? 
BEG 1s : IND NEX RIVE PRESENT 
Q 3$ iNO BRANCH 
T SUNIT :YeS, IS IT DRIVE 0? 
BEQ 1$ tIF YES ’T TEST OR 0 
3S: MOV R1, ORVPTR :STORE POINTER TO T XT DR. FLAG 
TYPE MSGI :"DRIVE™ 
MOV SUNIT, RO 
MOV RO, -(SP) i 3SAVE_RO FOR TYPEOUT 
see fer ee 
BYTE 4 + PPRESS CEROING ZEROS 
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ocod26 


001174 


res 27( 1006) 


GO6 
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FINO NEXT DRIVE TO BE TESTED 


;ENTER HERE FOR POWER FAIL RESTART 


PFSRT: 
i Seugnnennoceenavenggessssenenesscesuassdsecssnassanesssseesones 


THIS yest READS & PRINTS THE DRIVE SERIAL # FROM MSG A, WORD 11 


IS PERFORMED ON THE 1ST PASS ONLY 
+ ag 2° a ama seagate rian aio spt 


tAESrORE STK PTR 
GO TOAAEXT JE NOT FIRST PASS 
;CERR AFTER SCLR 


S INITIALIZE BIT POSITIONS 
;GET NEXT 4 BITS 


;GET WORKING COPY 

; CLEAR at BUT LOW 4 BITS 
;CONVERT TO ASCII DIGI 

;PUT ASCII DIGIT INTO CHAR BUFF 


;BR_IF ALL 9 oves CHARS NOT DONE 
ELSE INSER TERMINATOR 
; TYPE 


- 


itest'6 SET WHITH PAK COMMAND 


IF VV IS RESET, THE PACK COMMAND IS USED TO SET IT. 


3% 
j, seeuseseseuecueecusnennececeuesssneseneeecccesuneeneneneceauend 


;:D0 1 ITERATION 
‘eS TORE STK PTR 


TYPE  ,SCRLF 
:4T PRINT DRIVE SERIAL 
i 
;* IN BCD & 
3@ 
ie -~ 5 a 
MOV Hated : 
TST $pass 
RoR ope Supcur 
ERROR 24 
TYPE MSG16 
MOV b3, RAR] (RS) 
JSR PC’ GSTA 
MOV HMRe RI 
MOV #SOCTVL, RY 
MOV RY, -(SP) 
MOV 83,R3 
ROL Ri 
ROL Ri 
1S: ROL Rl 
ROL RI 
ROL Ri 
ny ORG. RO 
BIC #177760,RO 
BIS #60 
MOVE pee 
DEC 
BNE 1 
CLRB 3s (R44) 
JSR PC,$ 
at i 
T " SCRLF 
jATEST SET VV WITH PACK C 
+ 
téte: SC 
MOV #1, STIMES 
MOV #StAck, SP 
JSR PC, SUBCLR 
ERROR 24 


;CERR AFTER SCLR 
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SET VV WITH PACK COMMAND = Give 
BIT 8D. VV, HMRe 

BNE TST7 :;G0 TO NEXT TEST IF VV SET 

SCOP1 

MOV 8STACK, SP sRESTORE STK PTR 

JSR PC, SUBCLR 

ERROR 24 ;CERR AFTER SCLR 

HOV aPACK RKCSL(RS) :CMD TO SET WV 

nee Be eng FIND RDY 

ERROR 116 ERDY NOT SET AFTER PACK CMD 

BIT #0. VV, HMR2 

BNE St? TO NEXT TEST IF w NOW SET 

ERROR ‘Bex DID NOT SET V 


tTest 7" "READ & SAVE BAD SECTOR INFO 8 TYPE PACK SERIAL © 


SAVE BAD SECTOR INFO & TYPE PACK SERIAL # 


Teer ERIE iin os 410, TRACK 2 
THIS aren CONTAIN GRO SECTOR NEO i ge" 7 


AT THIS ane ‘Fo AS MASK FUTURE 'R A ERROR PRINTOUTS. 
Sct ? Torta 14, at Mees ESRTRIN TOENT PchL 1hFo en CEeTORe TRARE DETECTED 
SECTORS 1,3,5,7,9 CONTAIN IDENTICAL INFO FOR 20 SECTOR HARDWARE DETECTED BAD SEC 


SECTORS i 13/15, 17,19,21 CONTAIN IDENTICAL INFO FOR 20 SECTOR SOFTWARE DETECTED 


F BSE INFO CANNOT BE READ OR IF ALTER READING THE BSE INFO 
Ir Is TERMINED THA AN ALIGNMENT CARTR DGE IS USED, 


IRE Fiat a ROP ARETE LET Bp ac oy rin 


THE PACK SERIAL # IS TYPED IN OCTAL & FOR THE FIRST PASS ONLY. 


We a eee 


Sc 

MOV #1, STIMES ;:D0 1 ITERATION 
MOV aStAack, SP ‘RESTORE STK PTR 
JSR PC, SUBCLR 

ERROR 24 ;CERR AFTER SCLR 
MOV #CCLR, RKCS1(RS) 

MOV SUNIT .RKCS2(R5) 

MOV #RECAL, RKCS1 (RS) 


;RECAL CMD 
;RESET CYL DIFF/OFFSET 8 CYL ADDR REG 
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07-0CT-76 13:50 1? READ & SAVE BAD SECTOR INFO & TYPE PACK SERIAL # 
sIN RKMR2 & RKMRS RESP. 
S616 013737 .001412 007426 MOV T10, TEMP! :SETUP TIMEOU 
bbet 737 036542 JSR PC FROY - iB INO ROY 
104124 ERROR 1 Y NOT SET AFTER RECAL CMD 
S632 012765 000001 000026 MOV $1,RKMRI(RS) § ;SELECT WORD 1 
5640 004737 040100 JSR PC; GSTAT 
S644 era? 620000 007416 BIT a0 RTZ, HMR2 
Baa i ai sRTZ NOT SET DURING RECAL CMD 
5656 013737 001412 007430 64$: MOV T10, TEMP2 ‘SETUP TIMEOUT 
5664 004737 037056 JSR PC, FATTI sFIND ATTN 
5670 104055 ERROR 55 "NO ATTN AFTER RECAL CMD 
& 012765 MOV #CCLR, RKCS1(RS) 
2505 01 1222 000010 MOV SUNIT.RKCS2(RS) ;DRIVES 
5706 012765 O0000S MOV #CLEAR, RKCS1(RS) -DRIVE CLEAR CMD 
5714 013737 001412 007426 MOV T10, TEMP) sSETUP TIMEOUT 
S7e2 004737 036542 JSR PC, FROY :FIND RDY 
2788 1ou1S1 ERROR 15] :NO ROY 8 BFT R R DRIVE CLEAR CMD 
037024 JSR TSTATN ‘TEST F 
5734 000401 BR 6s$ 
5736 104154 ERROR 154 ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
5740 65S: 
S740 004737 o404S2 ISR PC, SUBCLR 
5744 104024 ;CERR AFTER SCLR 
S746 005037 007430 CLR TEMP2 
S752 005037 007432 CLR TEMPS ieee OR HARDWARE DETECTED TABLE 
SECTOR SOF THARE DETECTED TABLE 
HARARE DETEC TED TABLE 
‘S SECTOR SOF THARE TECTED TABLE 
5756 012737 0033S2 MOV #BSE22H, TEMPY HARDWARE BSE ADDR. 
5764 013765 007434 MOV TEMP4, RKBA(RS) 
5772 012737 001000 MOV #1000; TEMPS ; TRACK 2, SECTOR 0 
6000 013765 007436 MOV TEMPS" RKDA(RS) 
6006 012765 000632 
6014 012765 177400 MOV #-256' ‘LOAD WORD C 
012765 O00021 #RODATA, RKCS1(RSS;READ DATA COMMAND 
MOV t ;SETUP TIMEOUT 


JSR RDY *FIND ROY 
ERROR 226 :NO ROY AFTER READ DATA CMD 
“GET FRESH DATA 


aa 
Ss 
es 


ISR TAT 
BIT ACtRR. HCS1 
ERROR ;CERR AFTER READ DATA CMD 


S 


007434 
000004 
007436 
000006 
pores 18: MOV #410. ,RKDC(RS) 3CYL 410 
RKWC (RS) 
000000 
007426 
007370 
007460 


o = 
_ 


cb: RITES 
= 


2737 010340 #<0!D.SPIN!D.DRDY!D.VV!D.DRA>,E.AO ;EXPECTED MSG AC 
Bes my ge it 
1 1 007464 MOV #<D. SPOK!D. carts b. DOOR!D.BRHM!D.SSP>,E£.Al ;EXPECTED Al 
02 12737 990001 007466 MOV #1,.£.81 ID FOR EXPECTED MSG B1 
16 005037 00747 CLR E.Ae ‘EXPECTED MSG Ae 
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F 016304 000476 
3700 016306 poses? 
3701 Biesis 3727 
3702 0163e0 001020 
3703 Q1632e aes, 
3704 O163e6 O1 
3705 016334 At 3766 
3707 Diese o1ares 
3708 016356 137 
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SA 
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VE BAD SECTOR INFO & TYPE PACK SERIAL # 


#2,€.Be 
#3,€.83 


PC, CHKMSG 


1610 


TEMPY , RKBA(RS) 
»RKDACRS) 


BSERR 
TST10 
BSE2eH+6 


TEMPS, »RKDACRS) 


sMSG ID FOR EXPECTED MSG Be 
D FOR EXPECTED MSG B3 


;CERR AFTER SUBCLR 


;READ ALL S SECTORS? 


;CANT READ SECTORS 0,2,4,6,8 
;CANT READ SECTORS 10, le... 


;CANT READ SECTORS 1,3,5 ... 
;CANT READ SECTORS 11,13,15 ... 


;RESTORE TABLE ADDR 
READ 2 SECTORS FROM LAST 


pons ARR OGE USED 
;SET BSE ERROR F 


;SECTOR CTR 
STORE 22 SECTOR SOFTWARE BSE ADDR 


; TRACK 2, SECTOR 12(8) 
; REPEAT 


SEG 0074 


KO6 
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OZR6IC.P11 07-OCT-76 13:50 17 READ & SAVE BAD crop a INFO PRE DE PACK SERIAL * she 
3709 
$710 O163¢2 023727 007432 o00002 11%: CMP TEMP3, #2 
Hig bleve Gate porn i 
i3 Ol l 007434 MOV TEMPY ;STORE 20 SECTOR HARDWARE BSE ADDR. 
3714 D1EHOY 13765 007434 OO0004 MOV TEMPY , RKBA(RS) 
3715 O16412 012737 001001 007436 MOV 81001’ TEMPS ;TRACK 2, SECTOR 1 
3716 016420 013765 007436 000006 MOV TEMPS; RKDA(RS) 
3717 016426 000137 016006 IMP 1§ ; REPEAT 
3719 016432 023727 007432 000003 12S CMP TEMP3, #3 
3720 O1B440 001020 BNE 
3721 Ol6442 005037 007430 CLR TEMPe SECTOR CTR 
3722 O1eH4G Ole?37 Do4aS¢ 007434 HOV SBSECOS S TEMPS i :STORE 20 SECTOR SOFTWARE BSE ADDR 
3553 Bt pt 378s 1013 ate V HO1a TERPS sTRACK 2, SECTOR 13(8) 
37eS O16470 013765 007436 000006 MOV TEMPS, RKDA(RS) 
seb 016476 000137 016006 IMP 1§ ;REPEAT 
3728 O16502 005737 001216 —_. at 
Pe Hen Be cen, Ro TER, aR YT or sts 
yal tees Olen ny AaSEEDM, (SP 
oe tes Gyre Boge fet eaepehs | (SUNPEEARR UNA wore To ocra 
1 104401 001205 T » SERLE : 
3735 016534 104401 001205 T * SCRLF 
$3 DIGSYO 004737 o4O4S2 JSR PC, SUBCLR 
3738 O16544 104024 ERROR 24 ;CERR AFTER SCLR 
3739 GO BACK TO CYL O 
3741 O1654% 012765 000017 oD0000 MOV #SEEK,RKCSI(RS) ;SEEK CMD 
are O16554 Ol 001414 007426 MOV T50, TEMP : TIMEOUT 
016562 JSR PC. FRDY : RDY 
ar 01 104131 ERROR ial :NO RDY AFTER SEEK CMD 
sre 016570 013737 doled 007426 HOV TS0000, TEMP Serr Tan TIMEOUT 
ca pteene rane ERROR 132 NO OTN TN TER SEEK CMD 
3750 O01 100000 007370 BIT #CERR,HCS1 
3751 Ol6612 001401 BEQ 665 
16614 104210 ERROR 210 ;CERR AFTER SEEK CMD 
Olbb16 665: 
re .SBTTL WRITE TESTS 
sek H irect ip eneic WRITE DATA Tes. 1 ODS 
a706 jATE BASIC WRITE DATA TEST; 1 WORD 
3764 i THIS TEST VERIFIES THE ABILITY OF THE DRIVE TO WRITE JUST ONE WORD, 


Dniheieeniueiienniaiditinmmsenseitiaitnn~ssaidiaden-cmiaadiammestiitasis does 
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13:50 


Sete 001174 


001340 


LO6 


TiO.) “Basic WRITE DATA TEST; 1 WORD oe 
- SECTORS ON CYL 0 ARE GIVEN IDENT! 
is saree somaR | fesfBRBV OES He Wid GHERcPOE BEEBE, NO 


it FOR A WR 
[Pepene nea neeeneeaeneeneneeneeneaeeneseneenenneaceneaeeneatiaes 
eee SCOPE 
#1, STIMES 


MOV ::D0 1 ITERATION 
MOV aStAck, SP ‘RESTORE STK PTR 
TST BYPWRT 
BEQ DOWRT 
TYPE MSG19 ;BYPASSING WRITE TESTS 
JMP TIMING 
DOWRT: 

TST BSERR iSEE IF ALIGN CART 
YPE  ,MSGYO iBGe OR ALIGN CART USED 
TYPE G26 :ABORTING DATA TESTS 
IMP TIMING 

2s: PC, SUBCLR 
ERROR 24 ;CERR AFTER SCLR 
INC BADHDR ;USED FOR VALID HALT 
MOV #HDTAB, RO ;MAKE ALL CYL O HEADERS IDENTICAL 

1S: CLR (RO)+ ;HEADER WORD O: CYL _O 
MOV #1 ,(RO)+  $HEADER WORD SET ETOR 0 
MOV #1 "(RO)+  $HEADER WORD 2: XOR OF 182 
CMP RO, SHDTAB+132. ;ALL HEADERS DONE? (22x6=132) 
BNE 1§ BR IF NO 

TAB (RS) ; R TABLE 

MOY eeBB  CARMECRC Coun 
MOV #<WRHEAD> Min :WRITE HEADER CMD 
NOY T TEMP 1 Mi TIMEOUT 
J ¥ RO 
ERROR 200 *NO ROY AFTER WRITE HEADER CMD 
JSR PC, GSTAT GET FRESH S;ATUS 
BIT #CERR,HCS1 
BEQ 64§ 
ERROR 201 ;CERR AFTER WRITE HEADER CMD 
TYPE MS ‘ABORTING DATA TESTS TO DO TIMIMG TESTS 
IMP TIMING 
SCOP 
OV #STACK, SP RESTORE STK PTR 
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PESe PEEIROSIER BASERAS Beware BENS ERENIee 
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be 8 hs bh hee ee et ee a oo oe bb b= bb -e B fae bs bs bs be bo pe ph pape et a ee ee ee 
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BSERERRL GAS d tes call tule 
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T-76 13:50 T10 BASIC WRITE DATA TEST; 1 WORD 


104024 ERROR 24 ;CERR AFTER SCLR 
90140 CLR CTOR 
D0140& OCO00E 3S: MOV CTOR,RKDA(RS) ;TRACK/SECTOR # 
12765 001514 o00004 MOV BDATA1;RKBA(RS) ;DATA TO BE ALL 1’°S 
177777 0900002 MOV #1, RKWC(RS) :WORD COUNT=1 
012765 oo0023 MOV #<WROATA> , RKCS1(RS) jHRITE DATA CMD 
13737 1424 007426 MOV TSO000, TEAP1 =; SET TiMEOU 
737 JSR PC, FRDY IND RDY 
104011 ERROR 11 NO RDY AFTER WRITE DATA CMD 
004737 040100 ISR PC, GSTAT GET FRESH STATUS 
032737 100000 007370 BIT #CERR,HCS1 
001465 BEQ 68$ ;BR IF NO ERRORS 
032737 007404 BIT #BSE, HER ;SEE IF BAD SECTOR FLAG 
001421 BEQ 66S :BR IF NO 
042122 JSR PC, TRUERR “ELSE SEE IF SECTOR LISTED IN BSE TABLE 
Bpodes BR 67$ *RETURN HERE IF NO 
005237 001406 INC SECTOR sRETURN HERE IF YES 
023727 OO1406 oo001e CMP SECTOR, #10. ; ARE 10 CONSEC. SECTORS BAD 
1003 BNE 65S R IF NO 
04046 ERROR 46 ‘ABORT ING ST DETECTED 10 BAD SECTORS 
000137 017352 IMP S$ BYPASS TE 


2765 100000 O00000 65S: MOV Sn REINS? ;TRY ANOTHER SECTOR 


137 017034 IMP 3 
104012 66$: ERROR 12 ;CERR WITH WRITE DATA CMD 
012737 910340 007460 Hoy x 0: 1D. SPIN!D. DROY!D.v wiD. DRA» E. AO ;EXPECTED MSG AD 
720 007464 MOV #<D. SPOK!D. canTsie E.Al_ ;EXPECTED Al 
127. 007466 MOV - #1,€.B1 a bf a PRE MSG B1’ 
37 boagae 007472 at ad iy B Pon EXPE CTED MSG B2 

12737 007476 MOV #° EBS Roe 1p Ft CTED MSG B3 
004737 037264 JSR PC, CHKMSG fan MSGS AD, BO, Al, Bl 
000003 S T.A2!T.B2!0 -& MSGS SPECIFIED HERE 
1040s2 ERROR 2 MSG AD ERROR AFTER TRIE DATA CMD 

. tre . RROR 

104053 RROR g3 he Al ERRO 

104025 ERROR 25 *MSG _B1 ERROR 

LO4OL 053155 TYPE MSG26 ‘ABORTING DATA TESTS TO DO TIMING 
000137 031706 JMP TIMING 

104063 67s: ERROR 63 ;BAD SECTOR NOT LISTED IN TABLE 

9349 007460 HOV #020. .SPIN!D. -DROY!D WV! VV!D. D.DRA> AO ;EXPECTED MSG AOD 

01 0017 4 MOV #<D.SPOK!D.CART!D. SOBRE P>,E.Al ;EXPECTED Al 
pts337 ey So euee MOV #1,£.B1 iftSG 1D. fae ny MSG B1 
005037 007470 CLR E.A2 
012737 007472 #2,£.B2 hoc. 1p FoR F EXPECTED MSG B2 
012737 007476 MOV #3/E.B3 : MSG XPECTED MSG B3 
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DRIVE DIAGNOSTIC. PART 2 MACY 27(1006) 07-OCT-76 14:14 PAGE 78 SEG 00768 
07-OCT-76 1 T10 BASIC WRITE DATA TEST; 1 WORD ae 
7334 004737 037264 ISR PC, CHKMSG ;CHECK MSGS AO, BO, Al, 81 
7340 000003 .WORD T.A2!T.B2!0 -& MSGS SPECIFIED HERE 
pae 1 ERROR MSG i ERROR AFTER WRITE DATA CMD 
1 RROR MSH 
7346 104 ERROR "MSG Al ERROR 
7350 104025 ERROR 25 :MSG B1 ERROR 


; S; ceAeeeDEEESOOSEOEEPESOSREREESSEaSEEEEEESOREEEEAEEEREEENEEEEOGS 
;#TEST 11 . BASIC WRITE DATA TEST; FULL SECTOR 


THIS TEST wears yo... patty 8 ’ THE cave TO WRITE 

CTOR. oh an art DATA COMMAND 
a4. BR bata co CaNNARO. A FURTHER S PERFORMED 
1S R REPEATED FOR AN ALL ONES PATTERN. 


# 
: AN Ne a ere a 


ok ok He 


te a 

# ee 
-# YT 

+ # IME ABOVE. 


+8711 

17354 012737 000001 001174 MOV #1, STIMES 
17362 012706 001100 MOV tethck SP ‘RESTORE ERO PTR 
17366 004737 o4O4S2 JSR PC, SUSCLR 
17372 104024 ERROR 24 ;CERR AFTER SCLR 
7374 012765 001536 000004 MOV SHDTAB, RKBA(RS) ;RESTORE TO 22 SECTOR 
7402 012765 i77b76 oooo02 MOY #-66.,RKWC(RS) ;STANDARD FORMAT 
7410 1352 TOCYL’ 
7414 013737 001352 001366 MOV TOCYL,CALADD § ;SETUP 
ree 012737 p99906 001474 MOV , HEAD :T0 apibe 
7430 012737 001502 MOV ’ FORMAT * HE 
7436 004737 041434 ISR PC; FHDTAB : TABLE 
7442 01 > RKCS1( “WR TE {HEADER CMD 
wish HUST SRN Ba YRS it 
7456 004737 036542 JSR 
7462 194209 OR Fr NOR Y RO FTER WRITE HEADER CMD 
7464 004737 040100 arr. GET FRESH STATUS 
m0 036737 100000 007370 BI ! 
reo 104201 ERROR at ;CERR AFTER WRITE HEADER CMD 
7502 104401 053155 MSG26 *ABORTING DATA TESTS TO DO TIMIMG TESTS 
7308 000137 031706 IMP TIMING 

1 64S: 
7512 005037 007354 CLR BADHOR ;USED FOR VALID HALT 
7516 104415 SCOP1 > 
7520 012706 001100 MOV #STACK, SP ;RESTORE STK PTR 
7524 004737 o404Se PC, SUBCLR 

7530 1 ERROR 24 ;CERR AFTER SCLR 

7532 005037 001406 CLR SECTOR 

7536 013765 O01406 OO000 2s: MOV SECTOR,RKDA(RS) ;SETUP SECTOR 


a 





“e 
3 


UNI 
OZREIC 


. 


O--b = 0b <b = p< ~ 9 O—-- 0 +H ed ee ed oe ee ed ~~ 0b —- 6 


2 ASSEERks Fane RATERS CHYY 


SN 
ore 


a 


>=) +0 —-<-0-—-b <p = > +0) + 0-0 -b- w+ 


Ieekewd Za 


~~ 
rf 


4 


PULL LU ESKER RRMAS OAs aaa scr iUtoulEs ee Eee ee cinta 





ie 


O1e765 


oo 
= 


oOo = 

o— 

q & 
tf 


oie 


BS KH Ome 
8 





/ 


dyeobfese ia:so 


1510 
Bul 


177400 


Ooraee 
Our? 


Tll 


= a on23 


~~ 


g 8243 42 


BO? 
Pre Babee ler te bata fests Fun scence =~" 


SDATAO, RKBA(RS) ;WRITE ALL 0’S 
SBAI AKCS2(RS) 


8-256. , RKWC(RS) 

BcuROATAD EKCSL(RS) gMRITE DATA CHO 

yen FIN at R WRITE DATA CMO 

bd cstat APT PRESH Etatus 

eCERR,HCS! nin 

s85E, HER :SEE IF BAO SECTOR FLAG 

PC TRUER ELSE SEE IE SECTOR LISTED IN BSE TABLE 
SECTOR, #10. IARE 0, CONEC. eros geo 


: ABORT ST DETECTED 10 BAD SECTORS 
es grence fest 


i RY BROTHER SECTOR 
l SCERR WITH WRITE DATA CMD 
8<0!D. SPIN!D.DRDY!D. WW!D.DRA>,E.AQ ;EXPECTED MSG AO 


E. C MSG RO 
8<0.SPOK!D.CART!O. 'D.BRHM!D.SSP>,E.Al ;EXPECTED Al 
#1,€.81 FOR CTED MSG Bl 


E. iEXPEE MSG 
a, Be MSG © oR CTED MSG B2 
a3,E. :MSG ID FOR CTED MSG 83 
PC, CHKMSG ;CHECK MSGS AO, BO, Al, Bl 
T. A2!T.B2!0 -& MSGS SPECIFIED HERE 
SG ag ERROR AFTER WRITE DATA CMD 
:M5G Al ERROR 
yfscee i BOR TINE Ba f a TESTS TO DO TIMING 
63 ;BAD SECTOR NOT LISTED IN TABLE 
a £0. SPIN1D.DROY!D. WV#D- DRA» ,£. AO sEXPECTED MSG AO 
TB SPOKID. CART!A DOOR! Bn? .SSP>,E.Al_ :EXPECTED Al 
#1,€.81 age FOR CTED'MSG Bl 


rnin BS 
ore 


; EXPEC 
;MSG 18 FOR CTED MSG Be 
;MSG ID FOR CTED MSG B3 


:CHECK MSGS AO, BO, Al, B1 
78 MSGS Specie tes HERE 


“3 6a” 
a 
Be 


RO 
-_" 
° 





BS 
a: 


eits 


CECE SESE 


SERRE 


in 


1 


—_ 
mw 
= 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 


NOU £WITUe-O 
RR 


> 0 —&-< &< & + = b> -< H- 9 


5 
¥ 
5 


5555555555 


2222 eo BC RRO RRS URNS ENS 


eee mw eee 


% 
8 
= 





010340 


DS BEERS 


MACYL1 
T1l 


72$: 


ule 


a2 


gues $ 


= 


{gee 


= 


i"? 


WR eH, 


BSTACK , SP 
PC, SUBCLR 
a4 


SECTOR, RKDA(RS) 
TAB, RKBA(RS) 


, 


a TA> .RKCS1( 
150000, TeHPL 


pe cstat 


acERR,HCS! 


r6ee eR 


eecToR 
;MSG AQ Eee AFTER WRITE DATA CMD 


ina Bl ERPOR 
;RESTORE STK PTR 


;CERR AFTER SCLR 
;SETUP SECTOR 


Mee 


;GET PRESH St 


for DATA CMD 


Re DATA CMD 


;SEE IF BAD SECTOR 


;DETECTED BSE IN READ BUT NOT IN WRITE CMD. 


;ABORTING DATA TESTS 


;SEE IF DATA CHECK ERROR 
;DATA CHECK ERROR AFTER READ CMO (ECC) 


;CERR AFTER READ DATA CMD. 


@<O!D.SPIN!D.ORDY!D.VV!D.DRA>,E.AO ;EXPECTED MSG AD 


8.0. SPOK!D. CART!O. 
#1,€.81 : 


se 
83 
PC 
- 


#<O!D0.SPIN!D.ORDY!D.VV!D.DRA>,E.A0 


"EBS 
“nett 1 Bet0 


'0. BRHM! 40 E.Al_ ;EXPECTED Al 
FOR MSG B1 


CTEeD’ 

; EXPE 

MSG ID FOR CTED MSG B2 
3MSG ID FOR CTED MSG B3 
;MSG 
MSH 
MSG 1 
;MSG Bl 


;EXPECTED MSG AO 


SEG 9086 





DIRSIC. PLL Til 





ese 


i 





ssces 


Ss S82 9293) 


aH oS 


| ERROR 
| 007352 3s Me 
BNE 
001810 iro 
| aus 000004 4S: a 
1514 
| phage sonons pa 
| 59 38: scor 
5 001100 nov 
240452 138 


BS 
e 23 


Ee 





By 
7 
= 


MOV 
NOV 
ack 14 , Bpoaoe OF 
4 
e054 
be0gS Toadoe 007370 BT 
32 040000 007372 
Be o00024 001466 MOV 





eco - +--+ 


pO7 
i A UAB SA ae Bel 
PEE EY 


: BB SPOK:D. cand 


ln 


TAL, RKBACRS ) 
Eons 


@STACK, SP 
aoc 


any 


1B eer piPen hers e, sEXPECTED Al 


F 


= ‘BHa BAER BE 
peerless ere 
ze =a 


‘Bieec SATA FOR TYPEOUT 


fee 04 aD oF VAL kt om AGAINST 


1D 7 i COMPARE WITH WRITE DATA 


;WRITE ALL 1°S 


;RESTORE STK PTR 


;CERR AFTER SCLR 


3TH OUT Tee MATE. CoE THE TEST CHECKS 
PREVIO Y WRITTEN 


a< WRT ery rinecut CHECK CMD 
er, WRITE CHECK CMD 
RE 


= 


SH TATUS 


;SEE IF WRITE CHECK ERROR 


;ACTUAL WORD FOR PRINTOUT 


SES 908: 





awa Ul eee ee ee 


r a - ee + - 


Soneie.Pil 


410 
41 
42 


tse 
e+ 20 
6 -o- 


MMA EERE LESH SRR IN Pen BBR ipratyonys Ft 


SESELELESELESLESLAEESALAEEEEALAAESEELL 
ss b= 0 2 ba bs bs = = be bs 8 8 Oe Oe = 8 Os b= 0 = b= bb bo ew He 


if 


REE 
is O13737 O0iS14 001470 
B ss 


§ 
£ 
é 


a Bsesde 
ae 


Ml a 





BePeRe 
q 


BY sve diane 


2 
g 
8 


Bisio soMosw CONSE 
Beine0 Bisres Soeaan Bepee 
1 1 000031 
ee 
1 1 
tee 001004 — 


EQ? 
macys Tale Sita fests Flue seerse 


DATAL,WOe 


we tte WATE CD 


22 ;CERR AFTER WRITE CHECK CMD 
D.SPINID. wore vv! AQ ;EXPECTED MSG AQ 


Ae ies art a al 
5°68 





C 
igs ae 
FrAStT Borg «CHECK SBS ORs Sbec ie tes Mere 
$7 MSG AETER WRITE CHECK CMD 
ings 1 
; 1 
S626 + BORTING DATA TESTS 
1D. SPIN!D. an VV!D.DRA>,E.AQ ;EXPECTED MSG AO 
;SBOK!D. canrb Bonk: aBRHM!D. SSP) ,£.A1_ ;EXPECTED Al 
‘ ‘5 igs Ip Foe DOEsTED "se 
PC, CHKMSG ;CHECK MSGS AO, BO, Al 
1. A2!T. Be! 


‘ ' gettin K om 


SSTACK , SP ;RESTORE STK PTR 
, SUBCLR 
54 ;CERR AFTER SCLR 
sDATAD, RKBA( ;SETUP TO CHECK AGAINST WRONG DATA 
8-256. , RKWC( 


SWRTCHK,RKCS1(RS) 


elite Hese 


Sey eneaH STaTU TE CHECK CMD 
MISCOMPARE 


FO? 
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DZR6IC.P11  O7-OCT-7& 13:50 Til BASIC WRITE DATA TEST; FULL SECT 

4157 021084 104017 ERROR 17 ;WRITE CHECK CMD NOT FUNCTIONING 

41 :WITH INTENTIONAL MISCOMPARE 

4133 021066 6S: 

461 921066 012737 010340 007460 Mov a«Q2D. SPIN!D.DRDY!D.VV!D.DRA>,E.AO ;EXPECTED MSG AO 

4183 $5109 1 1720 007464 HOV a -SPOK!D. -CART!D. met 15 ene SSP), Ra EAL. sEXPECTED Al 

wigs Gets vali: CLR E. eee TeD ED 

462 B51 152 Nov aE: BS its 1B a EXPECTED Nee BS 

4169 021134 JSR PC, CHKMSG gH , Bl 

4170 651149 - WORD pdto hee HERE 

4171 Oell E' WRT CHK CMD 

4172 O21144 ERROR 31 

4173 O21146 ERROR fe ERROR 

aim 921159 - ERROR 32 :MSG Bl ERROR 

‘ : 

at ; arn "ate ee 

4178 ;ATEST 1 20 SECTOR FORMAT TEST 

4180 tt , WRITTEN ON_A F CTOR_IN 2 SECTOR FORMAT. 

4181 is nes bo°Bt ARE ANE ERED F FOR CONDITION 

a 0211 ; ea th are ee eee 

4185 ot iea ieee iz 000001 001174 MOV #1, STIMES ::D0 1 ITERATION 

4186 021162 012706 001100 MOV aStack, SP ‘RESTORE STK PTR 

4188 O21166 004737 o4O4S2 J PC, SUBCLR 

4185 021172 104024 ERROR 28 ;CERR AFTER SCLR 

419 1174 012765 oo00004 MOV SHDTAB, RKBA(RS) ;HEADER WORD TABLE 

uige ee 12765 177708 000002 HOV #60. ,RKWC(RS) ;WORD COUNT FOR 20 SECTOR FMT 

413 021214 ope e237 007354 INC ;USED FOR VALID HALT 

4] 

4197 021220 013737 001352 001 MOV TOCYL,CALADD §; SETUP 

4198 e122 012737 990000 ool? HOV : He . :T0 FILL 1 

4260 Si Sa2 phe3 14 J Hara yA :T St rf 

4202 

4203 021246 O01 10027 MOV 8<CFMT! >, RKCS1(RS) sWRITE HEADER CMD 

: pices Bas aed ages HOV ere Lee TIMEOUT ” 

Neo? GB1576 boaoa? en NO AY oF TER WRITE a 

4 beie74 032737 Fop000 007370 ei ace, H 

10 Bike Ieee Frson ol CERR AFTER AATTE HEADER OH ecr 

4212 021312 000137 031706 IMP TIMING 





Bonete.Pil  byeokfese asso 


4213 021316 
4214 
4215 021316 
isié 021320 
4218 021324 
4219 021330 
SF 
Sg 
ae 
4225 021360 
4226 
4227 
42e8 021366 
7 pee 
Sf Be 
4232 021410 
4233 te 
4234 1422 
4235 
Se Bis 
iS 
4239 021440 
4240 
4241 dele 
4e4e Oel446 
= Bi 
4e4%6 O2l464 
4247 psiive 
a3 Gs 
| 4250021500 
S Bs 
= Bs 
S Bes 
Ee 
4 1 
4 1 
Bee 
| 4268 1 
| 


eee ee 





104415 
012706 


001100 
004737 O404Se2 
104024 


ee 901406 
13 D01406 OO0006 4S: 
1514 900004 
poses 000020 00001 
1e765 177400 000002 


oO 


Ole765 100000 OO0000 65S: 





1 
1 
1 
1 


a fe 


fF 


SCOP1 
MOV 


S 30 
$ 


g02% Suse 


% 


ited 
ow 


i ter 


3 


eocescs 


6 Se So ae We PAGE 84 


64S: 


aSTACK, SP ;RESTORE STK PTR 


;CERR AFTER SCLR 


( 
#DATAL;RKBA(RS) ;WRITE ALL 1°S 
#BAI, RK Se(R5) "BUSS ADDR INCR INHIBIT 
#256. ,RKWC(RS) °;00 FULL SECTOR 
8<CFMT!WRDATA> , RKCS1(RS) sWRITE DATA CMD 
TSOO00, TEMP! ° ;SETUP TIMEOUT 
PC, FROY : Y 
il : Y AFTER WRITE DATA CMD 
PC, GSTAT GET FRESH STATUS 
sCERR,HCS1 
68S ;BR IF NO ERRORS 
, HER ie IF Bro SECTOR FLAG 

Be TRUERR : of SEE IF SECTOR LISTED IN BSE TABLE 
67§ RETURN HERE IF NO 

CT sRETURN HERE IF YES 


SECTOR ; 

Fax 'OR, G08, ; 10 CONSEC. SECTORS BAD 
’ 
; ABORT T DETECTED 10 BAD SECTORS 
‘Bvense Test 

GECLR, ACSI CRS) ; TRY ANOTHER SECTOR 

1 ;CERR WITH WRITE DATA CMD 

9¢070. SPINO. OROVI0. YvD, ORD « AQ ;EXPECTED MSG AO 


a _$P0K1D. cAaRT?b- D0 RsD.BRHM!D.SSP>,E.Al ;EXPECTED Al 


E.Ae ones FOR CTED MSG B2 

t36:63 -‘}nSG 1D FOR EXPECTED PG BS 

PC.CHKMSG, _; CHECK MSGS AD, BO, Al, Bl 

T.Ae!T.B2!0 sre theo teTER tnd Te BATA CHO 
iMSH 


i 


;MSG Bl ERROR 

SABORTING DATA TESTS TO DO TIMING 
;BAD SECTOR NOT LISTED IN TABLE 
#<CFMT!SELDRV> , RKCS1(RS) 


MSG26 
TIMING 
63 


SEG 0084 


HO? 
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4269 021604 013737 go1i2 007426 MOV 110, TENPL oa 
a7) BSI east ZBROR Ae ROY noe FOUND AFTER SELDRV CMD 
i272 O21 O32 eH 901000 oo7416 BIT 80. FORN, HiR2 

hte O21 T4102 1 FORMAT NOT SET 

is 021632 1$: 

1 MOV #<0!D.SPIN!D. DROY0.V VV!D.DRA>,E.AO ;EXPECTED MSG AD 
be eat ay Ban cantsh tos eibd sc rec 8, 2» E.Al SEXPECTED Al 
4281 O21652 MOV e p OR NEXPER 
Se gin tie a any ere 
3554 Beles MOV RSTESBS B FOR EXPECTED Nec . 

4266 021700 JSR PC, CHKMSG ante pe BO, Al, Bl 
021704 -WORD Otb!0 78 MSGS SPECIFIED HERE’ 
4238 021706 i ERROn Se MSG AO ERROR AFTER WRITE DATA CMD 
4590 rae 1 ERROR 53 MSG Al ERROR 
Meas GBI7Ie OleyEE 177400 ooDONe RO” Sees. mauccnsy Se OF ERROR 
Sa Gis Mere a BE Pare 
4295 021740 013765 O01406 000006 SECTOR, RKDA(RS) 
disap 021746 2 010031 op0000 MOV 8<CFMT!WRTCHK> , RKCS1(RS) sWRITE CHECK CMD 
4298 021754 O1 001424 007426 MOV TSO000, TEMP1 ° ;SETUP TIMEOUT 
i533 o317e6 Penis Cote oer pe igs WRITE CHECK CMD 
aor fst ips 040100 aR GSTAT oH Stat ts 
4202 021774 0367 37 100000 007370 BIT acERR, HES 
4208 oesa0N Gara? 040000 007372 By HAGE, HeS2 ;SEE IF WRITE CHECK ERROR 
4 14 O1 1 MOV (RS),WOl § ;ACTUAL FOR PRINT 
rad 1833 ate fy asta MOV Baral noe WONPEC Ep RORD FOR TYPEOUT 
4308 022030 104016 ERROR 16 ;WCE AFTER WRITE CMD. 
4303 022032 000437 BR 70S 
i 022034 104022 69S: ERROR 22 ;CERR AFTER WRITE CHECK CMD 
4313 022036 012737 010340 007460 HOV 8020. .SPIN!D. DRDY:D.v es DRA>,E.AO ;EXPECTED MSG AD 
431 i 4 MOV #<D. SPOK!D. carT#ie DOOR IB. mek > EAL SEXPECTED Al 
ay ee fee Bag MB ieapco-cerl gi Sera a 
4318 an ee Bpadas 007472 MOV _ MSG ID OR EXPECTED MSG B2 
se) 022076 012737 000003 007476 MOV #3,£.83 ?MSG ID FOR EXPECTED MSG 83 
4321 022104 004737 037264 JSR PC, CHKMSG ;CHECK MSGS AO 80, of Bl 
q355 pestis t BGS ERROR 1 ,hetT. eto :MSG AD ERROR Benoa aT ECIFIED HERE CHECK CMD 
d3e4 Ge5118 104031 ERROR 34 ‘MSH BO ERR 





UNIBUS RKO& DRIVE DIAGNOSTIC PART 2 


DZRGIC.P11 07-OCT-76 13:50 
4325 022116 104060 

~ 129 1 

4 122 104401 Osai5s 
4 126 000137 031706 
4330 022132 

4331 O22132 012765 010001 
4332 022140 013737 O0141e 
4333 Oeelug 004737 O3eSHe 
~ 1S2 104117 

4335 022154 032737 001000 
4336 Oe2162 O01 

4337 O22164 1041 

4338 

4339 22166 

4341 022166 01 

4 

Bs Bes fee 
4346 Oeeee0 012737 000002 
Ree Ge2226 012737 000003 
4 022234 004737 037264 
at ee Wee 
ES 

4353 Oeee46 104060 

4354 Oeeesd 1 

4355 Oeees2 1044] 

4356 OeeeS¥ 012706 001100 
4358 22260 004737 o4O4S2 
a0 Oeeeb4 104024 

4361 022266 012765 001536 
4362 Oeee74 012765 177676 
4363 Oee302 001352 
4364 

ee 

4 022306 013737 001352 
4 O22 33 Bt 
ee ae 
4370 

Wh cara oxen mer 
Wa es tae Hse 
1a} O2e354 104200 
tee fee Oe 
4379 OQee37e 104201 

4380 Oee374 104401 053155 


-. 


88 
<= 
2 


S 


MACY1i 27(1006 
Tle 20 SEC 


07 


07-OCT-76 14:14 PAGE 86 

OR FORMAT TEST =e He 
MSG26 BOR TINE Bata TESTS 

TIMING 

8<CFMT! SELDRV> , RKCS1(RS) 

peo RBY ' FIND RDY 

11? NO ROY AFTER SELDRV CMD 

#0. FORM, HIR2 

103 sFORMAT NOT SET 


#<02D. SPIN!D. DROY2D. VV#D. DRA» , EA sEXPECTED MSG AD 
EXPECTED MSG 


#<D.SPOK!D.CART!0.DOOR!D.BRHN!D.SSP>,£.Al EXPECTED Al 
1.£.B1 FOR EXPECTED MSG Bl 


#2,£.82 :MSG ID FOR CTED MSG B2 
#3,£.83 :MSG ID FOR CTED MSG B3 
PC, CHKMSG sCHECK MSGS AD, BO, Al, Bl 
o'dto *& MSGS SPECIFIED HERE 
37 iMG OR AFTER WRITE CHECK CMD 
60 *MSG Al ERROR 
32 :MSG Bl ERROR 
8STACK, SP RESTORE STK PTR 
PC, SUBCLR 
24 sCERR AFTER SCLR 
SHDTAB, RKBA(RS) ;RESTORE CYL O TO 22 SECTOR FMT 
-66., RKWC(RS) 
YL 
TOCYL,CALADD § ;SETUP 
#0, HEAD TO FILL 
#0’ FORMAT * HEADER 
PC’ FHDTAB : TABLE 
8<WRHEAD> . RKCS1(RS) “WRITE HEADER CMD 
TSO000, TEMP] j BETUP TIMEOUT 
RDY : 
200 _ +. NO ROY AFTER WRITE HEADER CMD 
PC STAT :GET FRESH STATUS 
ace ,HCS1 
201 ;CERR AFTER WRITE HEADER CMD 


,MSG26 ;ABORTING DATA TESTS TO DO TIMING TESTS 





ee 
- 
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DZR6IC.P11 07-OCT-76 13:50 Tle 20 SECTOR FORMAT TEST 
4381 O22400 000137 031706 IMP TIMING 
4386 022404 71S: 
aes 022404 005037 007354 3S: CLR BADHOR ;USED FOR VALID HALT 
a 3 Sra’ GM aii ia ee 
4387 ;ATE TEST OFFSET & RTC LOGIC 


ARE FIRST it ay BY OFFSET 


a TBSP cs Rist Gata ait 
333 + BIFEERENT Er TRORR f “t 

304 ii i ALSO T DeTve & SEEK TO SELF WILL NOT 
ae ;# ate LEAR Tie "Ores a IN i 08 Tyg Orr] Be CHECKED 


# 
ss KELELELELLELELE ALLELE RAE LL LALA LALLA LERALA LAA RRALELLLLAELE SEL EEE 


02241 909004 t§T13: Sc 

O22412 012737 O00001 001174 MOV #1, STIMES ;:D0 1 ITERATION 
022420 012706 001100 MOV eStack, SP t RESTORE STK PTR 
022424 012702 900001 MOV #1,Re sMIN POS OFFSET 
022430 004737 oND4Se2 1S: ISR PC, SUBCLR 

022434 104024 ERROR 24 ;CERR AFTER SCLR 
022436 O10265 000016 MOV R2,RKASOF(RS)  ;SET OFFSET 


SB ARneERoeaaeRAIERERS 


£22 
veo 
= 
ss 


fe 
¥ 
8 
s 


ich TEKCSI(RS)_;OEFSET cop 
;SETUP TIMEOUT 


007426 MOV 


4413 7. 4 
path aaa rae = ERROR PC, FAD ;NO ROY AFTER OFFSET CMD 
pat beeN7e 12737 932149 007460 HOV 4D. PIP!D. SPIN!D. OFF#D. WD. DRA? ,E.AD ;EXPECTED MSG AO 
4418 022504 O1 001720 007464 MOV #<D. SPOK!D.CART!D.DOOR!D. BRHM!D. SSP» ,E.Al 
4419 O22512 012737 1 007466 MOV #1,£.81 
4421 022520 004 037264 ISR PC, CHKMSG sCHECK MSGS Al, Bl 
022524 Spaa80 . WORD gO! 8 MSGS SPEcTEtER. HERE 
wigs 022526 1040-35 ERROR 6 sNSG AD ERROR DURING OFFSET CMD 
445s peses0 {BupSe OR 35 MSG a ERROR 
wie 022534 104062 ERROR :MSG Bl ERROR 
44 11 64S: CLR 
44 pese8 poso3 opt 28 007426 nov aici TEMP1 ;SETUP TIMEOUT 
4430 022550 004737 037152 JSR PC, FAtTe :FIND ATTN 
party 022554 104034 ERROR 34’ :NO ATTN AFTER OFFSET CMD 
4433 
4434 Q22556 012737 052340 007460 MOV #<D.DSC!D. OFF!D. SPIN!D. DRDY!D.VV!D.DRA>,E.AO ;EXPECTED MSG AD 
4435 022564 005037 007462 CLR EXPECTED MSG BO 


ce. 
007464 MOV #<D.SPOK!D.CART! 6. DOOR!D.BRHM!0.SSP>,E.Al ;EXPECTED Al 


£ 
i 
a 
s 
8 
8 
8 
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022576 


aS 


ro 


1 
1 





001364 


bs ores 


RSRSBORATORESS oa TANO SERRE OR PRON MORO Sa SE AEEREOORS | 





17$: 


001362 65$: 


66S: 


022754 675: 


ot 27( 1006) 
T13 


3 § 


204 mi 
g 


go% * 


Fe 
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TEST OFFSET & RTC LOGIC 


“2 Bae 
Az pe @ 
ma 


g 


sup 


a2 
g 


Ri, CYLDIF 
6b$ 
114 


#CCLR,RKCS1 te 


SEG 0088 


;MSG_ID FOR EXPECTED MSG B1 
sEXPECTED MSG Ae 

:MSG ID FOR EXPECTED MSG Be 
;MSG ID FOR EXPECTED MSG B3 


;CYL_ADDR IN Be WAS NOT O 
AFTER OFFSET CMD FROM CYL O 


;REFRESH RKASOF 


;8R IF NEG OFFSET 
;CHECK POS OFFSET 


;OFFSET IN Ae NOT = RKASOF 
AFTER OFFSET CMD 


CHECK NEG OFFSET j 


;OFFSET IN NOT = RKASOF 
AFTER OFFSET CMD 


Hib reve RKCS] CRS) -DRIVE CLEAR CMD 

ui EMPL ; SETUP yiiteou 

Pe PRD NO RDY AFTER DRIVE CLEAR CMD 

pC TSTATN :TEST FOR ATTN 

154 ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 


ae RKCS1(RS) 


C,GSTAT 
OFF, 


4 


fat BIT IN RKMRe CLEARED 
AFTER DRIVE CLEAR CMD & SELECT DRV CMD 


.OFF!D.SPIN!D: ‘DRDY!D. VV!D.ORA>,E.AQ ;EXPECTED AD 
ca pn 
#1,€.B1 


PC, CHKMSG 


;CHECK MSGS AO, BO, Al, Bl 


UNIBUS RKOG ORIVE DIAGNOSTIC PART 2 
DZR6IC.P11 07-OCT-76 13:50 


001362 


001362 


Bcnnonees 


FARRAR AEAA 
WONMTWM £CWlH- oO 


JUCUUU 


007416 


007472 
007476 


UP ACMA CEOS Cad 


A 
irom 


Patettatta] 
BUT 





MACYL1 27(1006) 07-OCT-76 14:14 PAGE 89 
T13 TEST OFFSET & RTC LOGIC 
ERR Thais RR BFTER DRIVE CLEAR CMD 
ERR nen an bie it 
ERROR 274 MSG Al ERROR 
ERROR 266 “MSG 81 ERROR 
MOV R2,RKASOF(RS)  ;REFRESH RKASOF 
BIT #8117,R2 
BNE 68S ;BR IF NEG OFFSET 
CMP R2, CYLDIF ;CHECK POS OFFSET 
BEQ 69$ 
ERROR 1i5 -OFFSET IN A2 NOT = RKASOF 
BR 69S ‘AFTER DRIVE CLEAR CMD 
68S: CHP RL ,CYLDIF ;CHECK NEG OFFSET 
ERROR S OFFSET IN A2 NOT = RKASOF 
‘AFTER DRIVE CLEAR CMD 
69S: 
MOV #SEEK,RKCSI(RS) ;SEEK CMD 
MOV TS0,1 TEMP ; SETUP TIMEOUT 
ISR Cc. FRDY RDY 
ERROR 5 $1 NO RDY AFTER SEEK CMD 
MOV TSCO00, TEMP SETUP TIMEOUT 
ERROR Ss NO arn AFTER SEEK CMD 
BIT ACERR, HCS1 
2i ;CERR AFTER SEEK CMD 
70$: 
BIT #D. OFF, HMR2 
RROR 4 OFFSET BIT CLEARED IN RKMR2 AFTER SEEK TO SELF. 
7§: 
HOY .DSC!D.OFF!D. SPIN:D D_DROYED. Wy .VV!D.DRA>,E.AQ ;EXPECTED MSG AD 
MOV #<D. SPOK!D. cantiie DOORIB. BRHM! B0 SSP>,E.Al_ ;EXPECTED Al 
MOV #1,€.B81 sMSG 1 FOR EXPECTED’ MSG B1 
CLR ‘EXPECTED MSG 
MOV ,£.B2 :MSG ID FOR EXPECTED MSG B2 
MOV #3'£.83 *MSG ID FOR EXPECTED MSG B3 
ISR PC, CHKMSG ; CHECK NSgs AO, BO 
. WORD T, pet. B2!0 MSGS cites. HERE 
ERROR MSG AD EraoR AFTER SEEK TO SELF 
ERROR tay "MSH BO E 
ERROR 142 MSG Al ERROR 


SEG 0089 


Donel 


a 
5 


veer i ERPS PARAM aa aaa aa aired 


4598 





Je 3.35 


104143 
010265 


ooi008 


001362 


BA ELRROEES PT 


001352 
000020 


000000 
007426 


007370 


000010 


Y1i 27(1006) 
1 TES FSET & RTC LOGIC 


718: 


72$: 


74S: 


758: 


ERROR 
MOV 
BIT 
BNE 
CMP 
BEQ 
ERROR 
BR 
BEQ 
ERROR 


JSR 
ERROR 


“OCT-76 14:14 PAGE 90- SEQ 0090 


143 ;MSG B1 ERROR 

R2,RKASOF(RS)  ;REFRESH RKASOF 

gi'7,Re 

71 ;8R IF NEG OFFSET 

 \iaaaad ;CHECK POS OFFSET 

123 ;OFFSET IN .* NOT = RKASOF 

725 ;AFTER SEEK TO SELF 

NA eal ;CHECK NEG OFFSET 

123 ;OFFSET IN A2 NOT = RKASOF 
AFTER SEEK TO SELF 

PC, SUBCLR 

24 ;CERR AFTER SCLR 


#10., TOCYL 

#10. ,RKDC(RS) ; SET UP CYL 10 
O ACTUAL IMPLIED aekx TO CYL 10 TO VERIFY 
;OFFSET BIT IN RKMRe CLEARED 


#RHTAB, RO 
#<RDHEAD> . RKCS1(RS) *READ HEADER CMD 
TS50000 TIMEOUT 


TEMP1  ;SETUP 
FRDY :FIND RDY 
71 Bb *NO RDY AFTER READ HEADER CMD 
ug 
174 ;CERR AFTER READ HEADER CMD 
,Wtsa2e SABORTING DATA TESTS TO DO TIMING TESTS 
RKDB(RS) , (RO}+ i187 WORD FROM SILO TO RHTAB 
DB(RS);(RO)+ :$3°RD WORD 
#OLT, RKCS2(RS) 
PC, GSTAT 
173 ;DLT AFTER READ HEADER CMD 
gioco *ABORTING DATA TESTS TO DO TIMING TESTS 


aoe D.SPIN!D. OROvieR NECTED ea \ a ;EXPECTED MSG AD 
#<D.SPOK!D. connie >,E.Al_ ;EXPECTED Al 


BE. -Bl ise G0 FoR EXPECTED MSG 81" 
#2,£.B2 


;MSG ID FOR EXPECTED MSG B2 


sgnee He 


WONO UW Cut 


FEIRESEES 


PS GuR Dens ses Foes Soe cRN ene RRR T ERE 


023476 


012737 9000003 


3504 004737 037264 
000003 


” 001 
, 1041 
o2 


ine DRIVE DIAGNOSTIC PART 2 
1 07-OCT-76 13:50 


007476 


742 001352 


0327 
401 


01 
3727 001364 
001401 
104122 


it : 001362 
104101 


004737 , O4O4S2 
104024 * 


Gis? taIN4 
104131 

3737 0014 
Baike poy es 


032737 100000 
eat 
10421 


37 002000 007416 


000012 


738: 


16S: 


76S: 


20$: 


“MACYLI 27(1006) 
113 


07-OCT-76 14:14 PAGE 91 SEG 0091 


TEST OFFSET & RTC LOGIC 


MOV 
JSR 
. WORD 


#3,€.83 :MSG ID FOR EXPECTED MSG 83 
HKMSG ;CHECK MSGS AD, BO B1 
T. roast B2!0 -& MSGS Spectr TED ED HERE 
| : AFTER READ HEADER CMD 
302 :MSG Al ERROR 
272 MSG B1 ERROR 
RHTAB, TOCYL sCHECK WORD O ONLY, CYL 
73$ :BR IF 
Si :WRONG CYL# ON HEADER 
#0. OFF , HMR2 
i01 OFFSET NOT CLEARED HFTER READ HEADER WITH MOVEMENT 
CYLADD, #10 
122 ;DID NOT GO TO CYL 10 
cy DIF 
101 OFFSET NOT CLEARED IN RKMR2 
PC, SUBCLR 
24 ;CERR AFTER SCLR 
BSEEK,RKCSI(RS) ; 
50 ‘aor ST YnEOUT 


a ROY AFTER SEEK CMD 
TSOO00, TEMP ae TU y feout 


PC FaTt2 :FIND A 
132 *NO BTN AFTER SEEK CMD 
ACERR, HCS! 
21 ;CERR AFTER SEEK CMD 
a 
17,R2 ;SEE IF DOING NEG OFFSETS 
ee iB if ves 
R2 
#61 E IF JUST DID MAX POS OFFSET 
Be BR ir ves 
1s ‘EI se DO NEXT POS OFFSET 


si01’RI Rati NEG OFFSET OFOR NGG A 


SNES OUR BH me 


4661 023700 900137 


oy 
Beit Ba 


secseett f 


FF 
ed 


BERR ROR ER Ga ital octs 


012737 
012706 
ee: 
46 004737 
4ES4 
4695 


46 


he 
28 


022430 


000261 
022430 


001174 


23 ao Be 


0 ert 100s) oft “OCT-76 14:14 PAGE 92 
T13 OFFSET 8 RTC LOGIC 


JMP 1$ ;00 NEG OFFSET 
Re 
8261 aes g OFFSETS DONE 


BF 
ee a 


18s: 


ieee id TEGT READ DATA AT AL IE0O OFFSET POSITION 


in T 14 TEST READ DATA AT ALL HEAD OFFSET POSITIONS 

:# THIS Test V ee S THAT THE HE HEAD OFF OFFSET LOGIC IS OPERATIONAL BY 
:# WRITING ALL PATTERNS ON. CYLINOER 

iS Positions OR AIL “we Blo ROVING FSET POSIT! 
t+ ted a Line oe OFFSET 4 AILINe OFFS Toso 
i OFFSE VERIFIED OREABING Oe A, STATES BOE 1a. 
i ARE AT CYLINDER 

i —_ ORE NO PRICURES AT Ace R Outs INDICATES THAT 

:# T 

is OR B: The corey Theron oF Bist SURFACE, HEADS, RvW AMP 

3# 

it AN APPROPRIATE MESSAGE WILL BE TYPED. 

1 rong, ae puna pena Eee 


MOV setacn Se ‘APS rARe eeeT Bon 
JSR PC, SUBCLR 

ERROR 24 ;CERR AFTER SCLR 
MOV SDATAL,RKBA(RS) ;WRITE AL! 1°S 
BIS #BAI, RKCS2 Sy sBUSS 8 3 INR INHIBIT 
v 8-256. ,RKWC(RS) ; 


ICL OD DO AN IMPLIED SEEK TO CYL O. 
;WAS ON CYL 1 FROM LAST TEST 


CLR SECTOR 
118: MOV SECTOR, RKDACRS) 

MOV x TAD RK CSI iit DATA CMD 

MOV T0000, Tee rSeTuP NEout 

zeron 11 FI at WRITE DATA CMD 

ISR i’, GSTAT sn Poy oF Sat i 

BIT aCERR, HOS 

BEQ 6 :BR IF NO ERRORS 

BIT nBSE, HER ;SEE IF Bro SECTOR FLAG 

ISR C, TRUERR aBR IF Ne SEE EE SECTOR LISTED IN SSE TABLE 

BR b6$ ‘RETURN HERE IF NO 


SEG 0 








RKOG 
Pll 


8 
B 


SEES ELESCLELCELEL 
OQ 
; 


REBIIIRIRS 


SSSeAESS 
eg (ines Geiseserse eases ae 


8 
4 


: 


SEAS 


3 


oe 


_ 


SR 


Www 
Ce ed 


o 


8e= 


8 


Se 


pee e ye ey 
SRERSESRY 


8 
i 
ES 
es 
Oo 


OR IVE RI RGNOS TIE PART 2 
ati 0000ie 


1907370 
007372 


MACYLI 27( 


T14 


64S: 
6S$: 


66S: 
673: 


de 
Tee? READ DATA AT ALL HEAD OFFSET POST TIONS SEG 0093 


SEE TER, a10. ime Gorel: Fe rors aao 
64S 2 


: REQATING. TEST DETECTED 10 BAD SECTORS 
WCCLR,RKCSL(RS) j ie ANOTHER SECTOR 
;CERR WITH WRITE DATA CMD 
8020. SPIN!D.DROY!D.VV#D.DRA»,£-AO ;EXPECTED MSG Ad 
“SPOK!D. CART! . DOOR! -BRHM'D. SSP) ,£.Al_ sEXPECTED Al 
1 6-81 sMSG_ IC 


f i EXPE 

#e,£.82 crretTeD ts ORE CTED MSG Be 
#3,€.83 ine ID FOR EXPECTED MSG 83 
PC, CHKMSG ;CHECK MSGS AO, 80, Al Die 


T.A2!T.Be!0 CIE FIED 
MSG A thet fe td CMD 


35 
‘ e ie 
MSG26 TA TESTS TO DO TIMING 


63 ;BAD SECTOR NOT LISTED IN TABLE 


#<0'D. SPIN!D.DRDY!D. ws .DRA>, RO? .E-AO sEXPECTED MSG AO 
aD. SE «ID. caat#A. BOOK! “ae .SSP>,E.Al ;EXPECTED Al 


iPee Greet tep nse ee CTED'MSG B1’ 
R EXPECTED MSG gS 


B3 ee ID FOR EXPECTED MSG 


“38 Sans” 
iminiin 
BR: 


B 


= 
g 
a 


BSKIUN 
ae 


&8- . » RKWC( ) 

SECTOR; RKDA(RS) 

8<WRT RKCS1(RS) CHECK CMD 
T TEMP! s SETUP T rineout 


i TROY a PRET R WRITE CHECK CMD 
T FRESH STATUS 


PC, FROY 


GSTAT 
aCERR,HCS1 


soe wee ;SEE IF WRITE CHECK ERROR 





2 


y 


SESRREEREB La AIS Bhs 


ééé5S5 EEC EEE EEE EEE EEE EEE EEE EE ES 
LOUD “CT Lure o 


-_ _ ee ee ee eee + 


ERE 


DOs 
BE eee, MMR eT er eee ao DATA AT ALE UbAO OFFSET POSITIONS = 










xo 
ll 
GSE GRR GENE BBY RAP MEzg'Oh ACTOR EE PTY rer 
IDO ERROR 1g. sWCE AFTER WRI 
1 6 
oew4i2 104022 683: ERROR 22 ;CERR AFTER WRITE CHECK CMD 
4 007460 Hoy 8<O!D. SPIN!D. DROY!D. wv ;DRAD . .AO ;EXPECTED MSG AC 
1 pores 8D. SPOK'D.CART!D. DOOR!D.BRHM!D.SSP>,£.Al ;EXPECTED Al 
MOV #1,€.81 ;MSG ID FOR EXPECTED MSG Bi 
72 Sov uf me | OR EXPECTED MSG 82 
ea MOV 5 85 ine B FOR CTED MSG B3 
AS 





1 
a 
l 
l ' 
224462 737 037264 ISR PC. CHKMSG ;CHECK MSGS AO, BO al 
T.Ae'T, 82!0 nce SPEC! iEtEE vee 
1 t iS 8 AFTER WR EEE cM 
\ RROR 
™~% | 
i TPE MSG26 ba DATA TESTS 
tke Ba SBe IMP TIMING 
024510 69S: 
1 Hoy <0! D.SPIN!D.DROY!D.VV'D.DRA>,£.AO ;EXPECTED MSG a0 
. SPOK!D. cartsb. 10. BRHM!D.SSP>,E.Al ;EXPECTED Al 
Roy n Bl if FOR CTED MSG 81 
v * 
i MOV .E.5 OR C 
i mY SEBS sRSG |B COR PECTED Net Be 
Bao AGN Eg ORO SE Be Bl tcP ene 
i = ! ee ie 68 WRITE CHECK CMD 
1 RROR MSG AL 
72 | RROR :MSG B! 
peers sovn4 052053 TYPE MSG : READ WITH OFFSET TEST 
1 CLR a) ; % 
0 9s: MOV rs ; INIT OFFSET COUNTER 
Seto 104401 Ete TYPE hac :HEAD & 
lz C1014 MOV Al, -(SP) ts R1 FOR TYPEOUT 


i Pi fer esis eH 
3 Byt ; SUPPRESS EAD NG ZEROS 
1 1 001205 T SCRLF 
O246e4 005037 001472 1§ CLR OFFERR ;WRITE CHECK ERROR FLAG 
024630 004737 O404S2 JSR PC, SUBCLR 





2 
cs 
22 
a 


eng a pees i *r8P Bao ba "a meh SFP EE POSITIONS oe 


ERROR 24 :CERR AFTER SCLR 
we RO,RKASOF(RS)  ;OFFSET VALUE 
MOV R1,RKDACRS) ;HEAD NO. 

SWAB Ri 


RCFE EKCSL(RS) OFFSET. cn 


jee 
;NO RDY AFTER OFFSET CMD 
apr. .SPIN!D.OFF!D.VV!D.ORA>,E.AQ ;EXPECTED MSG AO 


eer . CART!0.DOOR!D. BRHM!D.SSP> ,E.Al 


ie 
Pee ge i 
a 


* 3328 


ct gieid Sires are feb fe CMD 
- Z| 
62 ;MSG Bl ERROR 


70S: 


al 1 SE RE 


T3000 TE . SFIND ATTN 
x4 ho er 





fel Exes Beene Se dase 
ae 
socescs Rae Z 





Fe ERE ERRE as a Lc res Eger ae cere 


aD.DSC!D. .OFF!D. SPINE bpornae “WED. DRA>,£.AQ ;EXPECTED MSG AO 
8<D. SPOK!D. cant oo 10. BRHM!D.SSP>,E. al. , sEXPECTED Al 
ie -Bl hae CTED'MSG 8 
1 007472 #2,£.B2 iex D TED nsG 32 
012737 007476 83,£.83 :MSG ID FOR EXPE MSG 83 
737 037264 JSR PC. CHKMSG ;CHECK MSGS AC, BO, Al, B81 
WORD T.Ae!T. Beto -& CIFTED HERE 
1 ERROR SG OFFSET CMD 
1 RROR 1 ; 
1 ERROR MSG AL 
1 ERROR 40 MSG Bl 
1 MOV #CCLR, RKCS1(RS) 
1 MOV SUNIT AKCeo. ) ;DRIVES 
1 MOV CS1(RS) DRIVE CLEAR CMD 
bes074 37 o014 ig MOV T TEAPL s SETUP tine 
1 JSR PCF : 
025106 104 ERROR isl ?NO ROY AFTER R DRIVE CLEAR CMD 
be5116 037024 ISR PC gTSTATN TEST FOR ATTN 
025116 104154 ERROR 154 ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 


a — a a cc re er ee 


FO8 


UNIBUS RKO& DRIVE DIAGNOSTIC PART 2 MACYLI 27(1006) 07-OCT-76 14:14 PAGE % SEQ 00% 
OZRSIC.P11 07-OCT-76 13:50 T14 TEST READ DATA AT ALL HEAD OFFSET POSITIONS 
uggs 025120 718: 
4887 925120 012765 001514 000004 Hoy BDATAL, RKBACRS) 
dees beet bisres PoeteO  baaods SEE NE rac RS) 
4890 25142 01 001408 900006 MOV SECTOR; RKDA(RS) 
“58 Bae: Tee 90003 1 999096 NOV euRTCHK, RKCSI (RS) jHRITE CHEC CHECK CMD 
te 7 dpe68 JSR BeOPROY" SP sine ROY 
Nese Goetoe OONea? ONO! FoR Pe. cSTAT iter PREGH Status | ee 
1g ratte aie 007372 T WCE, HCS2 
oe 1421 Q 2s 
001 Vv RKDB(RS),WOl ;GET M 
a pse5%e heeee panos = AAC REP ERE BBD Harte FA PRRORESET ERR FLG. 
4902 025220 008737 001472 TST QEFERR 
4903 1.-*-/- 
ian DeSezk Towi0} 054301 MSG39 WRITE CH CHECK FAILURE AT OFFSET 
D2Se3¢ 1 MOV RO, -(SP) t TYPE OF : a ee 
1a 104403 T $3 ONPh eee iat, BEcry 
BY 6 1s PE 6 DIGITS 
4399 000 BYTE 0 SS LEADING 
4810 104401 001205 TYPE  ,SCRLF 
Hail 104401 001205 TYPE ‘SCRLF 
4913 U32700 000200 23 BIT #81T7,RO ;SEE IF OFFSET IS + OR - ee 
uai8 001023 S$ :BR IF - OFFSET 
4316 000060 CMP RO, #60 
49 BEQ 45 
4818 001472 TST OFFERR 
4919 dy 
;SETUP FOR NEG OFFSET 


i) 


5.3L 


B 
4 


a 
n 


4S: TST OF FERR 
! BNE 


ag :D0 NE 
104401 OS414 T ,MSG37 ITE ¢ RROR_AT wie OFFSET 
' Let Nees ees ae HE ID NO MOVE 
-OR READ/WRITE AMP IS EXCEPTIONALLY GooD 
BR 8S :D0 NEG OFFSETS 


000260 SS: CMP se 


;;G0 TO NEXT TST 


a Sees ee TR 
b Saks 
i @ 


ai! 
BY Sass 
& 
a 
as 
ag 


SFSU HSER ES BS ANTES 


001472 6$: TST OFFERR 
BNE 








f 
é 


OZRSIC.P11 07-0CT 
ae 025350 104401 
4944 025354 
Wee 025354 012765 
33 
Weel 025376 013737 
4952 025404 004737 
aa G25410 104124 
4955 025412 012765 
woes O2S420 004737 
use GeeNS2 01001 
ae: 
4961 

G2eS4S0 104055 


ata 
! 
+ 
[=] =) 
— 


Z 


#2 
gan 


ry oD 
£oO 
a 


At 
yy 
OC 
au 


025534 000004 
025536 012737 
012706 


PEERS ES tS LU MT Se RCRERNER IMSS, 
os 
BB 
Sf 





054221 


DRIVE DIAGNOSTIC PART 2 
-76 13:50 


001174 


MACY11 27(1006) 4 
TEST READ DATA AT ALL HEAD OFFSE 


T14 T POSITIONS 
TYPE  ,MSG38 :NO WRITE RROR AT ah NEG OFFSET 
sNOTES T “FEDS DID NO 
ba” :OR AWRITE AMP IS DP PCEP TIONALLY GOOD. 
MOV 8CCLR, RKCS1(RS) 
MOV SUNIT. RKCS2(R5) 
MOV WRECAL,FKCSICRS) ca CHD 
RESET Cy che DIFF/OFFSET & CYL ADDR REG 
: IN & RKMR3 RESP. 
MOV T10, TEMP i SE TUP MP EouT 
ISR PC, FRDY NO ROY 
ERROR 124 Rov NOT SET AFTER RECAL CMD 
MOV #1,RKMR1(RS) § ;SELECT WORD 1 
JSR "GSTAT 
BIT 4D, RTZ, HiRe 
“a ERROR ev . sRTg NOT NOT SET DURING RECAL CMD 
, Wee pe PATTI PEND aTIN: 
ERROR 55 :NO aTTN AFTER RECAL CMD 
#CCLR, RKCS1(RS) 
Noy sont Be ey ) ;DRIVES 
HOV aCLEAR RK S1(RS) {DEIvE CLEAR CMD 
JSR PC ener + PEND ROY ROY 
ERROR 15] ?NO RDY AFTER DRIVE CLEAR CMD 
ISR PC C,TSTATN :TEST FOR ATTN 
se ERROR 154 sATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
Rl 
its Ri, #3 EEF ALL HEADS DONE 
a hid oe ‘iPee TREPERT ALL FOR NEXT HEAD 
. « SASSRSESASRSE SLE RARARA REA SHR RERERRSERREAREREAAERAERARALERERARELES 
;ATEST 15 WRITE WITH HEADS OFFSET 
+i THIS TEST VERIFIES THAT WHEN ATTEMPTING TO 
* WRITE WITH ADS OFFSET THAT THE OFFert WILL CLEAR 
;% DRIVE WILL 
ti SINCE THE BRITE COMMAND HAS AN IMPLIED RTC. 
ii THIS TEST IS PERFORMED FOR MAX POS & NEG OFFSETS ONLY 
i "OM papapiaanai cra email a se 
MOV #1, STIMES ; ITERATION 
MOV #Stack, SP ‘ AeSTORE STK PTR 
MOV #260, RO ;MAX NEG OFFSET 


GQO8 


07-OCT-76 14:1 


SEG 0097 


eunanmeanansss fa 


fee fe 


BEsssssss 
el eed ed ee ed eed ee ee ed 
WONMUI£ WIE 


is 


MGhereee tes ease astalicitayinhy 


Re 
“eR 


a 


025674 
025700 


i040e4 
010065 
12737 
15737 


cies 


as 


oe 


os 


Seeae 
Suing 


O404Se 


es Cr 


007426 


007476 


007426 


. Yll PS ee ey ong im ey PAGE 98 SEG 0096 


1$: 


64S: 


WR H HEADS 

JSR PC, SUBCLR 

ERROR 24 sCERR AFTER SCLR 

MOV RO,RKASOF(RS)  ;SET OFFSET 

MOV 864S, SESCAPE 

MOV SOFFSET.RKCSI(RS) ;OFFSET CMD 

MOV 1100, TEAPL sSETUP TIMEOUT 

2BRoR S ;NO RDY AFTER OFFSET CMD 

Hoy 8D. PIP!D. SPINED. OFF #D. WD. DRA ,E.AO sEXPECTED MSG AC 
HOV a -SBOK!D.CART!D. DOOR!D. BRHM!D. SSP) ,E. Al 

JSR PC, CHKMSG sCHECK MSGS BO, Al, Bl 

.WORD O'OtD 8 MSGS Specirtes HERE 

ERROR 3 :MSG AO ERROR DURING OFFSET CMD 

Bron 36 ine Bl ERROR 

ERROR 62 :MSG B1 ERROR 

CLR SESCAPE 

MOV S000 TENPL sSETUP TIMEOUT 

JSR PC, FATT *FIND ATTN 

ERROR *NO ATTN AFTER OFFSET CMD 

Hoy #<D-DSC!D. OFF 1D. SPIN?D. DROVD. VW#D. DRA» ,E.AO ;EXPECTED MSG AO 
MOV 8<D. SPOK!D.CART!0. 'D.BRHM!D.SSP>,E.Al ;EXPECTED Al 
MOV #1,£.B1 >MSG ID FOR EXPECTED MSG B1 

CLR E.Ae “EXPECTED MSG Ae 

MOV #2,£.B2 *MSG ID FOR EXPECTED MSG 82 

MOV #3,£.83 *MSG ID FOR EXPECTED MSG 83 

ISR PC, CHKMSG *CHECK MSGS AO, BO, Al, Bl 

-WORD T.Ae!T.Be!0 . -& MSGS SPECIFIED HERE 

RROR 260 ;MSG AO ERROR AFTER OFFSET CMD 

RROR 261 "MSH BO ERROR 

ERROR 37 :MSG Al ERROR 

ERROR 40 *MSG B1 ERROR 

MOV CLR, RKCS1(RS) 

MOV SUNT, RKCSe(RS) DRIVES 
MOV RKCS1(RS) “DRIVE CLEAR CMD 
MOV TiO, TEMP SETUP TIMEOUT 

JSR FC FRDY *FIND RDY 
ERROR 15] ?NO ROY AFTER DRIVE CLEAR CMD 
ISR PC, TSTATN TEST FOR ATTN 
ERROR rt ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 


S$: 





: 108 } 
| HOARE ORBVESRFSRORE, PART 2 OL ET Hop, aPcBeIeTE IM PACE 9 sea 099 





5053 
5054 026034 012765 001510 OO0004 MOV wOATAD, RKBACRS) ;WRITE ot eners 
Or. .8)? 

eter BSeRds POSER BBBRAS Ade reek, rac eRe) Be aePR AR BNCY 
5057 26056 001406 CLR 
026062 013765 001406 OO0006 4S: MOV SECTOR, RKDA(RS) 
926070 012765 3 MOV #<WROATA> . RKCSI(RS) “WRITE DATA CMD 
5061 013737 001424 007426 MOV st TuP TIMEOUT 

104 737 036542 JSR PC, FROY 

110 104011 ERROR 11’ *NO ROY AFTER WRITE DATA CMD 
5064 Debi le 004737 040100 ISR PC STAT. ; GET FRESH STATUS 
Se ase ide nthe — Q act . ;BR IF NO ERRORS 
5068 026126 032737 000200 007404 BIT 8BSE, HER ;SEE IF BAD SECTOR FLAG 
S069 026134 uel REQ 7s iBR 
2070 026136 042122 J TRUERR : IF SECTOR LISTED IN BSE TABLE 

i l BR *RETURN HERE IF 

144 1 TOR e 
Be RIS SE BNE ome «=| BB EMDR aio, HARUN SRE Shans ow 

1 ST DETECTED 10 BAD SECTORS 
SE ED we a ie 

1 1 i 000000 66%: MOV SCCLR,RKCS1(RS) ;TRY ANOTHER SECTOR 
5079 026174 000137 Oe6062 JMP 4§ 
epeo 026200 104012 67S: ERROR le ;CERR WITH WRITE DATA CMD 
5082 O26202 012737 O10340 007460 MOV #<0!D.SPIN!D.DRDY!D.VV!D.DRA>,E.AO ;EXPECTED MSG AO 
5083 026210 005037 007462 CLR .BO MSG’ BO 
e084 026214 Ole? 37 001720 go74eN HOV aD. SPOK! 'D. cart#b. feeb fon expe TED .SSP>,E.Al ;EXPECTED Al 
epee peo ei m 72 aoe c: seares TED = ne 
5088 SSESa2 012737 uenne BO aTe MOV tS°E 83 MSG 1B Fon FOR CTED MSG B3 
5090 026250 004737 037264 ISR PC, CHKMSG ;CHECK MSGS AO, BO, Al, Bl 
5091 690003 WORD T.A2!T.B2!0 8 NSG>_ SPECIE TED HERE 
bba3 beesen tpunes RROR 35 Men Bo 
5094 Oeb262 1040s3 ERROR $3 :MSG Al ERROR 
epee Gsesee Buus? osaiss Free “Ascos ite Flak iata TESTS To. 00 TIRING 
5097 O26e72 000137 021706 IMP TIMING 
5098 Oebe76 104063 68$: ERROR 63 ;BAD SECTOR NOT LISTED IN TABLE 
at 
5101 026300 012737 010340 007460 MOV #<0!D. SPIN!D. DRDY!D. VV!D. DRA» .AQ ;EXPECTED MSG AD 
5102 026306 005037 CLR E.B0 “EXPECTED MS 
5103 26312 O12? 37 651758 007464 MOV #<D. SPOK!D. CART!0. DOOR!D. BRAD. SSP>,E.Al ;EXPECTED Al 
5104 026320 012737 000001 MOV #1.£.B1 :MSG ID FOR EXPECTED MSG B1 
cine sees Staver Bere an: erie 
1 1 007472 MOV #2,£.82 D FOR CTED MSG B2 
2107 026340 012737 000003 007476 MOV #3,£.83 ‘MSG ID FOR EXPECTED MSG 83 
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uw 
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mr 
—O 


a ge" 


026404 
026406 


026412 
026416 


UTUTUTUT UT UNTO UT UT UU UT UT Linn Urner 
Ob b= 0 bs bo bs Be pe pane he be be bo ba he Bo Pe Pe 
BR RR ORB ow Noein eer 
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r Eee 
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004737 


037264 


001362 


37 001364 


001100 
040452 


001510 oo0004 


el er) oe 


70S: 


718: 


JSR 


)_ _07-0CT-76 i314 PAGE 100 


WITH HEADS OFF 


PC, CHKMSG 
TRetT. B20 


8 


sDATAD, RKBACRS) 


;CHECK MSGS 80 81 

:HSG A cart HH BEE cre 
inet BO Eeaon 

:MSG B1 ERROR 

Bee iF te MSG A2=0 


sMSG A2 NOT CLEARED AFTER WRITE CMD WITH OFFSET 
; SEE IF MSG Be=0 


IF ‘i 
{MSG B2 NOT CLEARED AFTER WRITE CMD WITH OFFSET 


;RESTORE STK PTR 


;CERR AFTER SCLR 


SEG 0190 


BoAeIe.Pil  Or-oct-Pe 13:50 


CUTOUT UT UU CUT UU UU rt 


O-= b= b= b= + b= Bh -2 Bs bs = Ph Hh = Ps PS 


REO Odd VOU 2 Odre Ded VERO EON BED UE UNE Lahore GOO Led OBER 


HOUNUNUT UT UT UU Un CUT Un CUT Un UF Un UT UU On UU Ut Cini cn UI UU rrr 
Os ae be be ae Bae be bmn ae bat ba be bat be ae fees = bs ae hme Bene ban be be fame be bs bo ban bane bane fe be 





= 


4 


eee 


est 


007472 
007476 


MA Yll AS tt pats v7 IS 14 PAGE 101 SEG 0101 





738: 


Fe BORD 


#<WRTCHK> , RKCS1(RS) “WRITE CHECK CMD 
TSO000, TEMP1 j SETUP aqaneout 


PC, FROY Y AFT R TE CHECK CMD 

B star NG Pe aitug 

#CERR,HCS1 

sUCE , HCS2 ;SEE IF WRITE CHECK ERROR 
RKDB(RS) ,WO1 ACTUAL PRIN , 
DATAO, We HOO EE TED RoHS Fo TYPEOUT 

16 ;WCE AFTER WRITE CMD 

73S 

22 ;CERR AFTER WRITE CHECK CMD 


#<O0!D.SPIN!D.DRDY!D.VV!D.DRA>,E.AD ;EXPECTED MSG AD 


E.B0 - EXPEC “i : 
#<D.SPOK!D.CART!D.DOOR!D.BRHM!D.SSP>,£.Al ;EXPECTED Al 
#1,£.B1 ;MSG ID FOR EXPECTED MSG B1 

E.A2 j EXPECTED MSG Ae 

#2,£.82 *MSG ID FOR CTED MSG Be 

#3,£.83 :MSG ID FOR EXPECTED MSG 83 

PC, CHKMSG ;CHECK MSGS AO, BO, Al, Bl 
T.A2!T.B2!0 & MSGS SPECIFIED HERE 

57 ;MSG ree 89 pe AFTER IRIGE CHECK CMD 

Zh nee Bl ERROR 

32 :MSG | ERR OR 

MSG26 :ABOR INé DATA TESTS 


#<0!D.SPIN!D. DROY!D. wip. DRA» PERO; sEXPECTED MSG AQ 
E.B0 - EXPEC 
aD SPOK!D. .CART!6. DOOR! D ont D.SSP>,E.Al ;EXPECTED Al 


#196 1B FOR. EXPECTED’ MSG Bl 


#2,£.B2 *MSG ID FOR EXPECTED MSG B2 i 
#3,£.83 *MSG ID FOR EXPECTED MSG B3 

PC, CHKMSG sCHECK MSGS AD 

T.A2!T.B2!0 & MSGS eeecitten. HERE 

$7 ;MSG AD Eraok AFTER WRITE CHECK CMD 

60 ine al 1 ERROR 

32 ;MSG 
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007426 


MACY11 27(1006) 
T1S 


74S: 


75S: 


07-OCT-76 14:14 PAGE 102 


WRITE WITH HEADS OFFSET 


CMP 
BNE 
MOV 
JMP 


Song _iBRed<d¥VSE PAR EOS OEE 
8 , ; 

BCR MCS] (RS) 

SRECAL RKCSI CRS) 


;RESET ct. REE OFFSET & CYL ADDR REG 
*IN RKMRe & RKMR3 RESP. 

T10, TEMP! Hy TIMEOUT 

"Sa Roy a SET AFTER RECAL CMD 

#1, RKMR1(RS) net WORD 1 


e244 ;RTZ NOT SET DURING RECAL CMD 
T10, TEMPe ; SETUP eeu 


PC, FATT 
g : iE IND TIN AFTER RECAL CMD 
#CCLR, RKCS1(RS) 
SUNIT RKCSe(RS) DRIVES 
CS1(RS) -DRIVE CLEAR CMD 
T10, TEMP iS TIMEOUT 
PC. FRDY 
1s} *NO RDY AFTER DRIVE CLEAR CMD 
PC, TSTATN TEST FOR ATT 
154 ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 


SEG 0102 


2 
: 


BRS SERRIRK ced a ain ea ae an nN AN 
R 
i 





000001 
001100 
001426 
o404S2 


001406 
001406 


O& DRIVE D asa PART 2 
7-0CT- 


001174 


007460 


a 27(1006) 07-OCT-76 14: PAGE 103 SEQ 0193 
T16 TEST CURRENT CROSS-OVER "CYLINDERS 


; jFeeseerscencecssaseqvercuetnecsscouectacesessnseeceeceeccsecene 
; STE TEST CURRENT CROSS-OVER CYLINDERS 


it THIS TEST VERIFIES THAT THE DRIVE CAN WRITE & READ OFF 
is CURRENT CHANGE CYLINDERS X & Y IN THE FOLLOWING WAY: 
1% SPIRAL WRITING IS PERFORMED FROM CYLINDER X TO CYLINDER Y 
ii WITH A DATA PATTERN FILLING THE ENTIRE 2 CYLINDERS. 
1% A WRITE CHECK IS THEN PREFORMED TO VERIFY DATA WAS PROPERLY WRITTEN. 
ii THIS TEST IS PERFORMED FOR ALL 3 HEADS. 
:% CYLINDER X: 63 127 191 255 319 383 
it CYLINDER Y: 64 1e8 192 256 320 384 
© REKARREHRALEKRA ALLE KARAS SAA RA AA LA AAA SLA AALS LARA ARAL ARLE RELA LEAKES 
téT16: SCOPE 
V #1 STINE ;;D0 1 ITERATION 
MOV aSTtAc 
MOV pea ;CYL ADDR TABLE 
1S: JSR PC, SUBCLR 
ERROR 24 ;CERR AFTER SCLR 
CLR SECTOR 
cs: MOV SECTOR, RKDA(RS) 
MOV (RO), RKDC(RS) CYL 
MOV woPATs RK BACRS) :DATA PATTERN 
BIS CS2(RS) :BUSS ADDR INCREMENT INHIBIT 
MOV pwr My #256. ,RKWC(RS) ;WORD COUNT TO SPIRAL & FILL 2 CYLINDERS 
MOV #<WROATA> . RKCS1(RS) “WRITE DATA CMD 
MOV TS0000, TEMP1 ; SETUP TIMEOUT 
ISR PC, FROY ;FIND 
ERROR i *NO RDY AFTER WRITE DATA CMD 
ISR PC, GSTAT GET FRESH STATUS 
IT ACER, HCS1 
Q ;BR IF NO ERRORS 
BIT #BSE, HER ;SEE IF BAD SECTOR FLAG 
BEQ 65S *BR IF NO 
JSR PC. TRUERR ‘PLS aS SEE IF SECTOR LISTED IN BSE TABLE 
BR 66$ : 
INC SECTOR ;RETURN HERE IF YES 
CHP SECTOR, #10. see 10 CONSEC. SECTORS BAD 
ERROR He ; ABORT ING TEST DETECTED 10 BAD SECTORS 
64S: Hoy ACCLR, RKCS1(RS) *TRY ANOTHER SECTOR 
65S: ERROR 1 : ‘SCERR WITH WRITE DATA CMD 
MOV #<0!D.SPIN!D.DRDY!D.VV!D.DRA>,E.AQ ;EXPECTED MSG AO 


NOS 


RKO6 ORIVE DIAGNOSTIC PART 2 MACYLi 27(1006) 07-OCT-76 14:14 PAGE 104 
-OCT-76 13:50 T16 TEST CURRENT CROSS-OVER CYLINDERS 





CLR £.80 
V #<D, SPOK!D. carTsie SEXPECTED Al 
y BYES oe ag 
av EA B2 MSG B2 
MOV #°E 85 Rea 10 FOR MSG BS 
JSR PC CHKMSG oat MSGS AO, BO, Al 
-WORD T.Ae!T.B2!0 -& MSGS epecitten HERE 
1 RROR ;NSG AFTER WRITE DATA CMD 
1 RROR RROR 
1 RROR 1 ERROR 
RROR 
YPE MS 


:MSG Bl 
;ABORTING DATA TESTS TO DO TIMING 
;BAD SECTOR NOT LISTED IN TABLE 


665: 
67$: 


Sune nar eenmmroeanmeecnm de 
| sei 
BR 
ath 
ane 
28 


012737 010340 oo7460 Hoy #020. . SPIN!D. DRDY!D. 5VV4D. DRA» ,E.AQ ;EXPECTED MSG AC 
are Mee rite 007464 #<D. SPOK!D. cart: B book! = BRHM .SSP>,E.Al ;EXPECTED Al 
027420 012737 000001 O07466 MOV i E.Bi a NY EXPECTED MSG B1 
pee iss pisos 007472 ase EAE o. >MSG FO POR EXPECTED MSG Be 
027440 012737 000003 007476 MOV #3,£.83 *MSG ID FOR EXPECTED MSG 83 
parade 037264 ISR PC, CHKMSG ;CHECK MSGS AD, BO al Bl 

‘ T.A2!T.B2!0 8 MSGS SPECIFIED HERE 
bemie4 1 ERROR 32 ;MSG AO ERROR AFTER WRITE DATA CMD 
ll tenes ibe Hot 6 fas BY Baga 
Eile 1 ERROR 25 :MSG Bl ERROR 
5214 1 (RO), RKDC(RS) 
5315 as Gi ares 1406 oo0006 MOV SECTOR, RKDA(RS) 
S316 027476 012765 O015i6 Oo0004 MOV #OPAT1; RKBACRS) 


~ 
a ae eee 
) 


of 





Saaete 
$31 


. 
; 


The 
BS7e12 
Srey 
pseere 
2 
sree boos? 
027606 104022 
Bs7eie boso3? 
e763 15737 
abe 
{SOs 
e7%00 boois? o3i?0e 
027704 
oe ie 
0277S2 004737 
ae 
oA as 


ISSR ORR ER? BOND RNDSS 80a1 B82 oan Sao RE ROON OO eRe Nas 





rote Tago 





BOS 
Tig | “TES? CURRENT CROSS-OVER CYLINGERS 


eosets 3gga885% eoeeeee ae Leen 


MOV 





8BAI, RKCS2(RS) 
8-6#22. #256. , RKWC(RS) 
8<WRTCHK> .RKCSIC(RS) ie CHECK CMD 
Terr rene at Meee 
; !NO ROY AFTER WRITE CHECK CMD 
PC, GSTAT GET FRESH STATUS 
BERR, HCS1 
SCE, HCS2 ;SEE IF WRITE CHECK ERROR 
(RS),WOl  ;ACTUAL F 
APAT! nod WORD Ee PEO TOR BORD OR TYPEOUT 
} s WCE eetif WRITE CMD 
22 sCERR AFTER WRITE CHECK CMD 


a<Di0. - SPIN!D. DROY:D ED aYN¢D, ORR? nm 3 ;EXPECTED MSG AQ 


8:5, SBOK!D. conral 0d ie 1b Fon Bxeee TED eS E. al. SEXPECTED Al 


E. XPECTED 
te, Be He p OR CTED MSG 82 
. : FOR CTED MSG B2 
PC, CHK ; CHECK al 
FASS 10 ofS ccs ciFt FIED HERE 
57 :MSG AO ERROR AFTER WRITE CHECK CMD 
3 ; MSH 
eS ea 
:ABORTING DATA TESTS 
ihe 
i 1D. SPIN!D.DRDY!D. VV!D. DRA», ERO; sEXPECTED MSG AO 
8D. SBK!0. carTs4. .BRHM!D.SSP>,E.Al ;EXPECTED Al 
#1 345 ip és EXPECTED MSG BI’ 
E. s EXPEC MSG Ac 
EA :MSG ID FOR CTED MSG B2 
83,£.83 :MSG ID FOR CTED MSG 83 
PC, CHKMSG ;CHECK MSGS AO, BO, Al, Bl 
A2!T.B2!0 . 


— J 


wu 





SES 0195 
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4 
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RKOG ORIVE 0 TIC PART 2 14:14 106 0 
Pil Ast a REPT ES ~OVER dvt RS = Ce 
4§: 
Vv (R 
NOV SONT TAKES CRED 
MOV SercAL R RAESLGRS) cH 
RE eT Sie FSET & CYL ADOR REG 
MOV T10 1 TUP TIMEOUT 
ISR pe BEY iF eo 
ERROR 124 :ROY Nor SET AFTER RECAL CMD 
MOV 81,RKMRI(RS)  ;SELECT WORD 1 
oe PC’ GSTAT 
BIT 0. 2, HMR2 
oa ERROR eve ie: :R1z NOT NOT SET DURING RECAL CMD 
JSR pea T PEND ATTN: 
ERROR 55 :NO BrTN AFTER RECAL CMD 
MOV SCCLR, RKCS1(RS) 
MOV SUNIT’ RK as {fe} DRIVES 
MOV S1(RS) “DRIVE CLEAR CMD 
MOV 10, TEHPI SETUP Tine Time 
JSR PC. FROY 
ERROR 15) *NO_RDY AFTER DRIVE CLEAR CMD 
eo BC, TSTATN TEST FOR ATTN 
ee 154 ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
030146 2s: 
: iter i? TEST EMO ICN Tie 
;ATE TEST HEAD SWITCHING TIME 
is TESTS THE ABILITY TO SWITCH HEADS IN LESS THEN 10MS WHEN HEADS SPIRAL. 
ii 8 1 Sieaetde BF He FIRST L ATED AND A WRITE DATA COMMAND OF S12 WORDS 
3 1 THe RIVE, WILL NOT HAVE TO TRAVEL 
ts 3. 2 SO ete ate “dae te TIME BETWEEN 
* WRITE COMMAND. ( SECT HEAD O; TO 
is SECTOR 0, HEAD 1) AND CONTROLLER SOULE BE APPROX &MS 
i THE ABOVE IS REPEATED FOR HEAD SWITCHING BETWEEN 1 TO 2 
i THIS TEST IS BYPASSED IF NEITHER L OR P CLOCK IS PRESENT 
i ee eee 


3:00 1 ITERATION 


ee 


SC 
MOV 
MOV 


sb Scies 





” 


BR ge 
eet ge 


o- 
o- 


e+ 
oo 

= 

iat) 





Sh ouN0G | oS 
aed eae 


007536 





007436 


~ 2 


000425 


7 Mom 27.1 


TES 
TST 


es 28353 u au2 ¥a 


m tt. 
r= 
4 


258 gocescs Z05 or 


) 07-OCT-76 14:14 PAGE 107 SEQ 0197 
HEAD SWITCHING TIME : 
ee Bypass, THI T St JE le 
$ 720 iNest % Nex 1Esf 
125, TENPS sHEAD 0, SECTOR 21 TO BE PUT IN RKDA 
? ;CERR AFTER SCLR 
PC FSEC23 ke 
106 : Po nO SECTOR 23 
$720 EST 
T acti pare 1 
ea] a BOOR INCREMENT INHIBIT 
fl eae Hes Oe are CMD 
#2000 sTEMP! 
° ¥ ;00 DELAY 
SROY,RKCSI(RS) ;LOOK FOR CONTROLLER READY 


Be FRDY ita og A ar on 


px cstar 
1 ;HEAD SWITCHING LONGER THAN DELAY 


rene 
1 ;CERR AFTER WRITE DATA 


#<0!D.SPIN!O.ORDY!D. vv! OR» AD ;EXPECTED MSG AO 


E. . 
“ epee. coer BE .BRHM!D.SSP>,E.Al ;EXPECTED Al 
#1,£.81 FOR "MSG Bl 


i 6 _ B FOR Nee BS 


¢ 
PC, CHKMSG 
a ee ITE DATA CMD 
mee Bi 


fetes = fheo rO°exT Test 






Oo 





SINE AS USAR BH = 
Re MEE BRB 


78 
48S 
30 
: a4 
Fea 030432 000004 
ie GaN Bley ooo oo1i7 
S504 O30446 005237 007354 
3 EE EEE A on 
SS IBN ux com 
EBle 030472 012700 001536 
| §513 030476 013720 0013S2 
Sis Case Glerey coe 
EES: 500 
a a a ne 
' §521 030524 012765 001536 000004 
| § 1 177676 
«Bs Beg fee ee Bee 
| EB Goose o127es gonna” gonogo 
| Bez Bere aire Gaeene 
| Bx tien Bere e000 oors70 
| 





a -_- —— - —- 





ara 48 ogee ye PAGE 108 SEG 0196 


MOV 8425, TEMPS 
JMP es ;ELSE REPEAT FOR HEAD 1, SECTOR 21 


H s SPSSRERSSSSSKSSSSESSSESELELELELESERSSERSSASAESSASRELELAALRASLLSS 
;. 20 DRIVE OFF TRACK TEST 
: T T T Y 
if THIS TES TEST CHECKS S FOR SERVO OSCILLATIONS DURING SETTLING TIME BEYOND 
8 1. INIT ¥, EVERY Cv CYLINDER IS FORMATTED WITH IDENTICAL HEADERS 
:# 2. AF See ore Tosh Se eae SCE Hock he" ° T° 
it StH fee PRIeAY Be CTOR TO COME UNDER THE 
f 3. I THERE $ Ose OSCI TION SENSED BY" READING THE TRISITS, 
N TH N MAJOR CYLI 
MUS ne Sai ROSE UE vn cee 
;# NEXT C 
SO SE I cert 
ST20: SCOPE 81, $7! RAT 
stack Se APO ARE ERK BIR 
INC BROHOR USED FOR VALID HALT 
Sb ss{TiS, TEMPS 
1S: JSR PC, SUBCLR 
ERROR 24 sCERR AFTER SCLR 
MOV SHDTAB, RO ;FORMAT HEADERS ON ALL MAJOR CYL. 
2s: MOV Toc. (RO)+ sHEAOER WORD Ff at 
MOV #130003 » (ROD4 CTOR O 
MOV O81 
BIS bcYL- CRO) CYL 8 LR: 
CMP ng nk SECTORS DONE? (22X6=132) 
2s BR IF NO 
MOV #HDTAB, RKBA(RS) 
MOV 8-65. , RKWC(RS) 
MOV TOCYL; RKDC (RS) 
MOV #<WRHEAD> . RKCS1(RS) guRITE HEADER CMD 
MOV TEMP]  ;SETUP TIME 
JSR PC FIND RDY 
ERROR 200 *NO ROY AFTER WRITE HEADER CMD 
PC TAT GET FRESH STATUS 
T ,HCS1 
BEROR ot sCERR AFTER WRIT R 
TYPE  ,MSG26 :ABORTING DATA Teste t5 Do PIMING TESTS 


BURRRE RRS tos sone o ker RE Re RUC Ree SeatoRee Mabe i 


RKOG DRIVE TIC PART @ Y11 27¢ 006) 07. -76 14:14 PAGE 109 
Bape ee RFR Ra Ey } BALOE OFF TRACK TEST am Ter 
030612 000137 031706 IMP TIMING 
030616 64S: 
930616 006137 007436 ROL TEMPS SET CARRY ONLY ONCE 
006137 001352 ROL TOCYL iSELECT NEXT MAJOR CYL 
920686 3707 001352 001000 cre TOCYL, #1000 MAJOR CYL FORMATTED? 
030636 000020 7 Oe RKDC(RS) ie TO RETURN TO CYL O 
930648 Ql 900017 og0000 MOV SSEEK,RKCS1(RS) ;SEEK CMD 
Ol 001414 007426 MOV TSO, TEMP ‘SETUP TIMEOUT 
030656 004737 036542 JSR. PC. FERDY ‘FIND ROY 
030662 104131 ERROR 131 "0 ROY AFTER SEEK CMD 
37 424 007426 V TEMP TIMEOUT 
Batre Bhasas | art WSR Pirate ot PEND ATTN 
76 104132 ERROR “INO ATTN AFTER SEEK CMD 
030700 932737 100000 007370 BIT sCERR, ,HCS1 
B30748 104210 FER OR SF 3 sCERR AFTER SEEK CMD 
030712 65S: 
030712 012737 031420 001176 MOV SF ORM, SESCAPE 
G7? cooon: cose = YS SEroen, | HEEIEDN SUT 
7 raves CLR FRCYL ; 
030734 104415 SCOP1 
030736 012706 001100 ~ MOV 8STACK, SP ;RESTORE STK PTR 
030742 013737 001352 001360 MOV TOCYL,CALDIF © ;SETUP FOR ERROR PRINTOUT 
030750 004737 o404Se2 3S: JSR PC, SUBCLR 
030754 104024 ERROR 244’ ;CERR AFTER SCLR, 
930756 013765 001352 MOV RKDC(RS) ;GO TO CYL # 
012765 001514 MOV aDATAL eS RKBA(RS) :ALL 1’S 
030772 000010 BIS 1, RKCS2(RS) 
031000 01 177400 900002 MOV Sooeg RetiC CRS) ; SECTOR TO BE ALL 1’S 
’031006 012765 000023 o00000 MOV SURDATA,RKCSI(RS) ;WRITE DATA CMD 
ne i a ane 
{BSE 104011 ERROR 11’ saa AFTER WRITE DATA CMD. 
1030 004737 040100 JSR GSTAT T FRESH STAT 
1034 03e7 37 020000 007420 BIT * DROT, HMR3 IF DRIVE OFF TRACK 
1042 001401 BEQ 
031044 104112 ERROR 12 pans OFF TRACK AFTER WRITE DATA CMD 


1 100000 007370 SS: BIT #CERR,HCS1 
Caioss Gai404 Beds 
031056 1040le ERROR ile ;CERR SET AFTER WRITE DATA CMD 


—— —- — eee - 





RKOG OR TIC PART 2 Y11 27¢ ) 07-OCT-76 14:14 PAGE 110 SEG 01 
BORETE.PLTe BOR ee Taso Meee ee eee  TROEK TEST a 
5590 
9531 031060 = 6S: | 
03 007460 MOV x 1D. SPIN!D. DROY:D. WY DRA>,E.AO ;EXPECTED MSG AD 
2 ee ee I A eo 
aI 18°37 D000 OO74ee NOV a0. Bl 7 can 50 -BR SRT NPECTED MSG. BI — 
Be BUR Bey o 8 be pict ne 
DODD . 
ies Gee 6S ORE RAR 
S601 031126 004737 037264 JSR PC, CHKMSG ;CHECK MSGS AD, BO, Al, Bl 
pede 031132 000003 .WORD T.A2!T.B2!0 : SPECIFIED HERE 
031134. 104052 ERROR :MSG AD AFTER WRITE DATA CMD 
5604 031136 104023 ERROR 23 MSH 
Beoe 631149 1 RROR MSG Al 
1142 1 OR MSG Bl 
5607 O3114 373 001364 0013S2 CMP CYLADD, TOCYL 
es B31 186 10411 PRROR 113 ;CYL ADDR IN RKMR3 NOT = RKDC 
11 031156 7$: 
S612 031156 104415 SCOP1 
is 031160 001100 MOV #STACK, SP ;RESTORE STK PTR 
15 031164 004737 o4O4S2 ISR PC, SUBCLR 
Bele 031170 104024 ERROR 24 ;CERR AFTER SCLR 
orig il 1 1514 MOV #DATAL, RKBACRS) ee o8.8 
2p33 B38 oe rie apts BIS #BAI, RKCS2(RS) 
S621 031206 012765 177400 MOV 8-256. , RKWC( 
E55 031214 O1 MOV TA, RKCS1(RS) 
ees3 Ba 1533 01 14 age MOV sain TEMP 1 
S625 031230 004737 O36S42 JSR PC, FROY ;FIND RDY 
Bob 031234 104011 ERROR 11 !NO ROY AFTER WRITE DATA CMD 
S628 031236 004737 0o40100 JSR PC, GSTAT ;GET FRESH STATUS 
5629 O3124 273 620000 007420 BIT 80: DROT, HMR 
ea pat see the ERROR ll2 DRIVE OFF TRACK AFTER WRITE DATA CMD 
ops 031254 032737 100000 007370 8s: BIT #CERR,HCS1 
S634 031262 001401 Q 9$ 
031264 104012 ERROR ie ;CERR AFTER WRITE DATA CMD 
031266 9g 
5639 031266 012737 010340 007460 MOV #<0!D.SPIN!D.DRDY!D.VV!D.DRA>,£.AQ ;EXPECTED MSG AO 
ct false late Boss my ide ceo baa 
1 O31 1 1720 007464 MOV #<0.SPOK!D.CART!D.DOOR!D.BRHM!D.SSP>,E.Al ;EXPECTED Al 
ete 031306 012737 900001 MOV #1,£.81 ;MSG ID FOR EXPECTED MSG Bl 
S643 031314 005037 0074 CLR E.Ae j EXPECTED MSG Ae 
S644 031320 012737 O00002 007472 MOV #2,£.B2 *MSG ID FOR EXPECTED MSG B2 
| S645 031326 012737 000003 6 MOV #3,£.83 :MSG ID FOR EXPECTED MSG B32 
j 
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S888 S8888888sss 8 


Pa ERATE PRT 


i 
b-+ B= b= pe 


001000 


100000 007436 


031476 


ul 
Sry 
CTO 


012737 
004737 
104024 
012765 
012765 
013765 
031 1 
bai470 Gieva? booed Bola 
012737 000000 001502 
004737 
012765 000000 
0014e4% 007426 
737 
104200 


en ee en ee ee a ee 


0e37e7 0013Se 001000 


Saee 8 BUBSERRSY 


— b= poe 


HO3 
pay ii tS ty ad eo os te Pa PAGE 111 SEG 0111 
eo FCAINTBic HO "G5 Bs Rey 


E MSG AD ERROR AFTER nite Oar CMD 
ERROR = MSH BO E 
ERROR MSG Al ERROR 
ERROR 25 :MSG B1 ERROR 
TST CYLADD 
4gs ;NOT BACK TO CYL O 
10S: INC RO 
CMP RO, #100. ALL ITERATIONS DONE? 
me BR IF Y BGAIN 
13$: CLR RO ;RESET ITERATION CTR 
ASL TOCYL 
CMP TOCYL, #1000 fat BAI MAIOR CYL DONE? 
BEQ FORM 
IMP 3$ Bice Doe REXT CYL 
FORM: CLR TOCYL RESTORE TO ORIG 22 SECTOR FORMAT. 
MOV sBITIS, TEMPS 
128: JSR PC, SUBCLR 
ERROR 24 CERR AFTER SCLR 
MOV #HDTAB, RKBA(RS) ;REFORMAT ALL MAJOR CYLINDERS 
MOV #-66. , RKWC(RS) 
MOV TOCYL, RKDC(RS) 
MOV TOCYL,CALADD =; SET 
MOV $0 HEAD 75 ai 
MOV 80, FORMAT HEADER 
JSR PC; FHDTAB : TABLE 
Nov S<WRHEAD? RKCSI(RS) — HRITE HEADER CMD 
JSR PeOPRDY PEND RDY 
ERROR !NO ROY AFTER WRITE HEADER CMD 
ISR PC, GSTAT GET FRESH STATUS 
go gees 
ERROR 201 ;CERR AFTER WRITE HEADER CMD 
TYPE MSG26 ‘ABORTING DATA TESTS TO DO TIMIMG TESTS 
JMP TIMING 
b48; 
R TEMPS 
R TOCYL 
CMP TOCYL, #1000 sALL MAJOR CYL REFORMATTED? 
BNE 128 BR IF NO 
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SRNR, 


00 NOU £ Wurm 


Sane 


REEIMROREP SESE E ERPS AMD AM ASI 
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VE OFF 

031600 o0sod6S 000020 CLR RKDC(RS) ;SETUP TO RETURN TO CYL 0 
031604 005037 001176 CLR SESCAPE 

610 01 900017 ooc000 MOV SSEEK RKCS1(RS) ;SEEK CMD 

616 Ol oo1414 007426 MOV TSO, TEMP ; SETUP TIMEOUT 

624 004 S42 JSR PC, FROY I 

630 104131 ERROR 13] NO RDY AFTER SEEK CMD 
031632 013737 001424 o07426 MOV TSOOOO, TEMP1 © ;SETUP TIMEOUT 
031640 O47 32 037152 JSR Fc ,Fatte : iE IN ATTN 
31644 1041 ERROR 1 ATTN AFTER SEEK CMD 
03164 032737 100000 007370 BIT SCERR,HCS1 
031654 00140 BEQ 65$ 
031656 10421 ERROR 210 ;CERR AFTER SEEK CMD 
031660 65S: 
031660 005737 007356 TST HPEND ;SEE IF HALT PENDING 
131664 POL ee are 4 ;BR_IF NO 
031666 007356 L ND :CLEAR FOR FUTURE FORMATTING 


Bpois? | passed Sees OB BECK BHACT CPU 


16 
031702 005037 007354 4g: CLR BADHOR sHEADERS NOW OK 
.SBTTL SERVO & SPINDLE TIMING TESTS 
031706 TIMING: 
;  SESEKARARARALAEAREAREAELRERERARE RELA LA SELA LEAR RAL AARAAHAARELAERE 
jATE EST 21 TIME BETWEEN OUTER LIMIT TO HEADS HOME DURING UNL 
i TIME IS MEASURED FROM ATTN ASSERTING (APPROXIMATES REV 8 OUTER LIMIT) 
i TO HEADS HOME ASSERTING. EXPECTED TIME APPROX 28SMS 
1 ALL TIMING TESTS ARE BYPASSED IF NEITHER 
i L OR P CLOCK IS PRESENT & WILL BE INDICATED BY A MESSAGE 
: SEEKER KAARARAAASRRA RARER AAA ARE ARA RE RA RARE RA RA RRA SAHRA ARE RKAA AEE 
Bata Broes? 000001 001174 tBral: Soy al, STINES DO 1 ITERATION 
031716 012706 001100 MOV #StACk, SP us 
031722 005737 001342 TST YPTIM ;SEE IF BYPASS TIMING TESTS 
631758 TOW4OL OSHHSE PES 'BYPASS TIMING TESTS 
03 734 000137 036034 alle JMP $E0P ; 
031740 005737 007536 " TST DOTIM 
031744 001004 BNE 
031746 104401 oS22l12 TYPE  ,MSG13 ;TIMING TESTS BYPASSED 
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T21 TIME BETWEEN SUTER LIMIT TO HEADS HOME DURING UNLOAD 
IMP SEOP 
: PC, SUBCLR 
« ERfor o4 ;CERR AFTER SCLR 
TYPE mSG42 ;ALL TIMING TESTS BYPASSED 
IMP $E0P 
ISR PC, CALCLK ;CALIB TIME TO GO THRU ’LOOP’ 
INC: oe USED FOR VALID HALT 
MOV 
MOV BURL ORD FKESLRS) UNLOAD 
MOV 0, Te up TIMEOUT 
ERBor F Eing auth AFTER UNLOAD CMD 
MOV #CCLR, RKCS1( 
ty ae RIVES ee CLEAR co 
MOV TEMP SeouT 
J at hs 
ERROR 1 Y AFTER DRIVE CLEAR CMD 
ISR PC, TSTATN TEST FOR ATTN 
“i ERROR 154 ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
CLR LPCNT 
MOV $1,RKMRI(RS) | ;SELECT WORD 1 
2s: JSR PC, GSTAT 
BIT 8D. HDHM, 
BNE 3$ ;BR_IF GOT HEAD HOME 
ISR PC, LOOP ELSE GO THRU LOOP 
TST LPCNT : Test FOR OVERFLOW 
BNE IF NO 
ERROR 66 ?NO HEAD HOME AFTER UNLOAD CMD 
3S: TYPE MSG18 ME BEING MEASURED 
MOV tPent $TMPO ‘get Bp OEOR MIE 
ISR TYPTIM fPPE TIME os USEC 
TYPE  ,MSG43 *LIMITS 
TYPE  ,{SCRLF 
TYPE ‘SCRLF 
4g: CLR SESCAPE 


jATE 


Tats TEST se55 8 Sr A prerl ot 


THE FOLLOWING “LOW VELociTy™ 


Te a EE St at =m 


TEST LOW VELOCITY TIMES DURING L 


COMMAND 
NOS CTED FROM THE Prey tous TEST. 
IMES ARE CHECKED AGAINST 
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3:50 Tee TEST LOW VELOCITY TIMES DURING LOADING 


LIMITS TO BE DEFINED: 
TIME 1: T TWEEN ME NEGATING & SERV P RTIN 
TS PERE ABE EN # SOO S10 Pes een 


* 

+ 

* 

i TIME 2: TIME BETWEEN OUTER LIMIT & INNER LIMIT 
i § MEASURED FRON fn SIG PRES (APPROX OUTER LIMIT) 
Rieke weal 

3 TIME 3: TIME BETWEEN INNER LIMIT & OUTER LINIT 

ty T FR V ASSERTING (FROM ABOVE) 

i: to'Rey NEGATING. APPROX OUTER L Int?) 

is EXPECTED TIME APPROX 2.25 SEC 

©  SERERERELEELELE RARER ARARSRARRR RSE RRE ERE REESE RRA ALAA ELA LALE 

téT22: SCOPE 


GRRE, O74 BY SARA HaBQ rad TERT 


ee ee ee ere re eee Teer oe 7) 


o404s2 JSR PC, SUBCLR 
ERROR 24 ;CERR AFTER SCLR 
o42262 ISR PC, CALCLK ;CALIB TIME TO GO THRU ’LOOP’ 
00001 000 V TSPL,,.RKCS1(RS) -START SPINDLE CMD 
Borate ite Nov if ptenel ; SETUP TIMEOUT 
036542 JSR IND RDY 
ERROR PRDY NOT SET AFTER START SPIN CMD 
032656 001176 MOV open 
001370 001372 MOV HZ COUNT 
000074 001374 MOV 
HOV $1. ee ARP RS) 
J TURN CLOCK ON FOR &0 SEC TIMEOUT 
040100 ins 18: JSR PC; cuter 
Beg - HOH, HAR ;BR IF HEAD HOME = 0 
001376 TST IMUP 
BEQ 1§ 
043332 JSR PC, CLKOF 
ERROR 67° ;HEAD HOME NOT CLEARED DURING LOAD CMD 
043332 2s: JSR PC, CLKOF 
bole CLR LPCNT TUP FORT TINE 1 
I oo0026 MOV #1, RKMRI (RS) LECT 
040100 3S: JSR PC, GSTAT 
007416 BIT #0: SSP, HMR2 
BNE 4§ ;BR IF GOT TFOK 
042726 ISR PC, LOOP “ELSE GO THRU LOOP 
001452 TST LPENT TEST FOR OVERFLOW 
BNE 3$ :BR IF NO 
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OZREIC.P11 07-OCT-76 
5870 O32402 104070 
Be55 032404 013737 0014S2 
5873 
5874 O3e41l2 005037 001452 
eae 032416 012765 000001 
5877 032424 004737 040100 
5879 4 1 3, 
HS HER FEL oe 
i ee 
l 1 
5884 032454 013737 001452 
ese ss: 
00 
oa 012765 1 
5890 032474 004737 040100 
Se HER Be per 
1 04. 
589s 2 001 - 
Be fess Wee 
5897 032524 01 001452 
5838 
co) GSE ja pene 
1 144, 
ea02 032544 Neu 043004 
eons 032550 104401 054567 
5905S 0440 
a ie bee bon 
cane 72 1 1 OS 
5910 032576 104401 
5911 032602 013737 OO01446 
5312 032610 004737 3004 
saig 032614 104401 054635 
S915 032620 104401 001205 
5916 032624 104401 1205 
at 032630 005037 001176 
919 4 
cus iat guar pou 
bags ba5ee bpen3? 007352 
2es3 032654 000414 
5925 032656 005037 001176 
Se Ee ye eee ee ee eee 


001442 


000026 


001160 


001160 


007426 


MACY1L1 27(1006) 14: S 
Tee TEST LOW VELOCITY TIMES DURING LOADING 


ERROR. 
MOV 


4$: 
CLR 
MOV 


S$: JSR 
BIT 


TST 


8S: MOV 


LOS 


07-OCT-76 
70 
LPCNT, TIMI 


LPCNT 
#1, RKMR1(RS) 
PC, GSTAT 
ie REV, HMR2 
BehT 

; 

LPCNT, TIM2 
LPCNT 

#1, RKMR1(RS) 
PC, GSTAT 


TIM1 tini-stmpo 


PC, TYPTIM 


PAGE 11 SEG C115 


;SERVO SIG PRES NOT SET OURING LOAD CMD 
;STORE LOOP COUNT FOR TIME 1 


;SETUP FOR TIME 2 


;8R IF GOT REV 

‘OE IF NO FOR OVERFLOW 

;REV NOT SET DURING LOAD 
;STORE LOOP COUNT FOR TIME 2 


;SETUP FOR TIME 3 


;REV_ NOT CLEARED DURING LOAD 
;STORE LOOP COUNT FOR TIME 3 


SETUP FOR FULT 
Ree TIME IN USEC 


;TIME 2 MEASUREMENT 


;LIMITS 
; TIME 3 MEASUREMENT 


;LIMITS 


;FIND ATTN 

;NO_ATTN AFTER START SPIN CMD 
FOR VALID HALT 

$360 TO NEXT TEST 


MOS9 
BERBTE.Pit> MBYEOR SRE Tare PRT — HBENY PFECA CG VELOEITY TIMES OURING LOADING #0 0116 


032662 013737 001420 007430 T vs TEMP2 
7056 att .F TTN 

caer Base28 PRdE94 a Ion Pt. ' haa AFTER START SPIN CMD 

5929 032676 005037 007352 CLR UNLD 

2330 032702 000137 9036034 ;ABORT DRIVE 

S332 ; ittst 23: PERU ROTATION. SPD 

5933 j ATE MEASURE ROTATIONAL SPEED 

res i THIS TEST MEASURES INDEX TIMING BY: 

5937 :# TO 20 SECTOR & READ HEADER. 

5938 i COTROLL "1B ee Ses49 oe" Reao eemeet 

By : . 

594 i INDEX TIMING IS IS THE TI T 2 CONT. RDY TIMES. 

594 1 TH HIS I APE une ita Fone INSIS SECTOR PULSES 

5944 ti UNTIL Fue Ne eae INDEX APPEARS-THUS KEE! GIVEN 

594s ii FORMAT COMPLETE THROUGHOUT AN ENTIRE at A ENDER 

ea i THE TIME IS THE AVERAGE OF 100 READINGS. 

ecg MPTESTTI TTT TTT TTT T TTT TTT TTT TTT TT TTT TTT TTT TT tt TTT tT tt tT Ty 
032706 o00004 t$T23: SCOPE 

5951 032710 012737 OO000i 001174 MOV #1, $TIMES ; 1 ITERATION 

: 032716 012706 001100 MOV #STACK, SP ‘RESTORE STK PTR 

5 004737 o404Ss2 JSR PC, SUBCLR 

222° Wee 104024 ERROR 24 ;CERR AFTER SCLR 

4 032730 004737 o42262 JSR PC, CALCLK ;CALIB TIME TO GO THRU "LOOP’ 

5959 032734 oosoo0 CLR RO s ITERATION COUNTER 

5 032736 005037 o014S6 CLR SUM "LO WORD OF REV TIME SUM 

a 005037 001460 CLR SUM+2 *HI WORD OF REV TIME SUM 

5 032746 g12765 910025 90090 1S: Mov #<CFNT! ROHEAD> i ;CHANGE TO 20 SECTOR FMT & READ HEADER 

Baee Basces Bharse Aaeeas RRO PRCPRDY PEND ROY 

5366 032766 104171 ERROR 171] *NO RDY AFTER READ HOR CMD 

5 005700 TST RO : TEST FOR SECTOR O AFTER FORMAT CHANGE 

a 36770 001007 BNE 4§ :DO ONLY ONCE 

5971 032774 004737 040532 PC, RDSEC 

5878 033000 001406 TST é 

5 033004 O01 BEQ y 

5974 033006 104064 ERROR 64 ;CANT FIND SECTOR O FROM INDEX 

5975 “AFTER FORMAT CHANGE & RDY REC'D 

: 033010 BR TST24 GOTO NEXT TEST 

5 03301 1452 4S: CLR -COUNT PASSES THRU LOOP 


LPCNT 
MOV HANGE TO 22 SECTOR FMT & READ HEADER 
14 007426 MOV Ts008 ten SETUP T tine OUT 
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Bee 8 BRB BB 


Cs 
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BEBSSSS 


eirataia taNtiaisi initiates 
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Oou7s? 


042726 
007426 
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001174 


parva er G08) wean rn PAGE 117 


iHTE 


MOV 


a tae 


Y 4s READ HOR CMD 
O NEXT TST 


;CANT FIND Pe 0 ty vase 
SAFTER FORMAT CHANGE & RDY REC'D 
;;G0TO NEXT Test 


ae PLER ON THE STACK 
Mn at ON THE STACK 


re Ait! 
is 3;GET oe PRODUCT 
:R3 CONTAINS LOW ORDER PRODUCT 


;AVG ROTATIONAL TIME 
;CALC & TYPEOUT AVG TIME 


[erepepenuenpnnecescesencetersceererennnnae na nnneTerEoNnEyTnene 
MEASURE IME 


MAX SEEK T 


ads SUIMES 
PC, CALCLK 
RO 

SUM 

SUM+2 
SUM1 
SUM1+2 


TIME BETWEEN CYLINDERS 0 8 410 


‘e 
rf 1 neeeRS TH DIRECTIONS ARE PRINTED 
ia ir NOT. ait nf ifp 1) BE nea 


F eetesssasansuneeneeeessssusnnneneeeeeetsssasuneneeeeenessoans 


;;D0 1 ITERATION 


;CALIB TIME TO GO THRU *LOOP’ 


EON COUNTER 
Phunae seek 


i wD Oe EOD eee 
I WORD OF REVERSE SEEK TIME 


SEG 0117 


AS 
a 


SRS RSE CAREER IS oul TIN SE RC RRR RE RMR UMOUO as Sea Toe! oil ie 


| 
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033224 004737 o4ONS2 18: ISR PC, SUBCLR 
033230 104024 ERROR 24 sCERR AFTER SCLR 
033232 012737 033524 001176 MOV 878, SESCAPE 
‘ T © c 410. 
Re EE RG GE on, | RY PUB RETR, IEDR gt Oe MO 
1 1414 007426 MOV 
033262 004737 JSR PC 150, IEP sFIND ROY 
033266 104131 ERROR 13] !NO RDY AFTER SEEK CMD 
033270 001452 CLR NT ;COUNT PASSES THRU LOOP 
033274 sec 001222 MOV IT.R4 
633300 O72 o4e7S2 JSR FatT3 sFIND ATTN TEP *LPCNT’ 
id41 !NO ATTN AFTE K CMD 
033306 004737 040100 JSR PC, GSTAT 
pee : 100000 007370 gir actRR, HCS1 
i 3i0 OR 210 ;CERR AFTER SEEK CMD. 
1 001 901169 cs: MOV LPCNT, STHEO sFROM LOOP 
1 001 0011 MOV UP mM’ STMP1 FROM apr 1 
1 001160 MOV *=(SP) $3 7 THe MULTIPLER ON THE STACK 
1 0011 MOV sine -(5P) T IPL CAND ON THE STACK 
bize 1162 nyse, simpy ee vi OT THE L i THE PRODUCT 
033360 012637 001164 MOV (SP )+; Sine iee :;GET THE’ 38 S OF foe PRooU 
933364 005765 00020 TST RKDC(RS) 
001414 BEO 63 ;BR IF THIS SEEK WAS REVERSE TO CYL O 
033372 063737 001162 oo14s6 ADD $TMP1, SUM ;SUM UP FOWARD SEEK TIMES (LSB) 
Ga340 005537 001460 ADC 
063737 OOL1E4 OO14ED ADD STMP2, SUM+2 ;MSB 
12 004737 o4O4Se2 ISR PC, SUBCLR 
16 ERROR 34 ;CERR AFTER SCLR 
20 le :SEEK TO CYL 0 
930422 063737 001162 001462 6S: ADD STMP1 Sut ;SUM UP REVERSE SEEK TIMES (LSB) 
Saas Beae37 001164 OO01464 eae amuse SUM1+2 ;MSB 
INC 
nee aaa 000144 CMP RD, #100. ;ALL SEEKS DONE? 
033450 001265 BNE 1$ :BR & REPEAT IF NO TO CYL 410. 
023452 104401 053267 TYPE MSG28 ;FOWARD SEEK TIME 
033456 004737 JSR PC, AVGTIM :CALC & TYPE AVG TIME (FOWARD) 
TYPE MSG29 sREVERSE SEEK TIME 
ee 2 a oe ee a a 
ba3ca3 7 pasate JSR Beatin TCALC & TYPE AVG TIME (REVERSE) 
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pick 033634 127s 
pise Geese Bl 
612% 033656 737 
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| 
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p16 
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001205 
Bali 


001176 

100000 900000 

Bovois So0000 
001412 007426 
036542 

00000: 000026 

040100 

020000 007416 
1412 007430 
STE pone 

036542 

037024 

000001 001174 

001100 
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64S: 


S$: 


TYPE » SCRLF 


TYPE F 
ier 

es ;;G0 TO NEXT TEST 
CLR SESCAPE 


MOV sCCLR, RKCS1(RS) 


ny Baga nRKESLCRS) 


MOV » REC 
:RESE SET cYL me EOFFSET & CYL ADDR REG 
MOV T10, TEMP! SETUP T 
ISR FC, FROY iB IND ROY 
ERROR 1 Y NOT SET AFTER RECAL CMD 
MOV 81,RKMRI(RS)  ;SELECT WORD 1 
JSR PC’ GSTAT 
BIT 80:RTz, 
ERR ar :RTZ NOT ING RECAL CMD 
MOV eto 0, TeMpe are D TyheouT 
JSR pet Pi ar 
ERROR 55° :NO ATTN RETER RECAL CMD 
NOV SUNT RKCES CRED DRIVES 
nov scien AoE Re): j DRIVE CLEAR CMD 
v 16, TEMP s SETUP T TINE 
JSR PC PROY 
ERROR 43! Ng fo DRIVE CLEAR CMD 
ISR pC, TSTATN TEST Font ATTN 
ERROR 154 sATTN NOT CLEARED AFTER DRIVE CLEAR CMD 


Se Genet Go Gee eee 
EST 2S 


MIN SEEK T 


THIS TEST te THE MIN SEEK TIME BETWEEN CYLINDER O 3 1 


THE AVERAGE i 3 10 BEEKS N BOTH DIRECTIONS ARE PRINTED 
IF NOT MITHIN LIMITS IED. 
MIN SEEK TIME SHOULD BE LESS THA 10MS. 


« SELSFLALELEAELELAALELALE LLALELLALLAALALARELALALARALALAARALRARLARAEE 


tét25 


COPE 

MOV #1, STIMES ;;D0 1 ITERATION 

MOV estack , SP 

JSR PC, CALCLK ;CALIB TIME TO GO THRU *LOOP* 
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: a : 
1 BS ae 
1 501 
i 901464 
1 o4o4se 
Paz 
l 012737 034236 001176 
12765 900001 000020 
ie? Solsi4 Borice 
S42 
104131 


as Geesass Gian O28 Geel 1 ae 


888 
o-0-0- 
a a 
o 
£ 
8 
& 


001460 


3g 


b- 
Tw 


001462 
001464 


SBIRRPGO SSBIRRPORHBIGISA ZINN SSSVEHRIOR ESSER LOL ¢ 


KKM MGM KPMG KOMP MMO MM KOKOMO KOKOMO rrrwrwd 


O-+ 0 b+ 0 = bb -* b= + & + OO & = = 8-0-2 ow + 2-2 +o +o 2 + + 2 + 0 -- 6 2-2 o +0 20-0 +0 2 osm + 


B§ 


BS 888 Soe ee Foe 


RoOR 
SE Ree Rae WAY 5h 
oe a 

Ss) 


MACYLi 27( 1006) 
Tas MEASURE 


1$: 


Ss: 


6$: 


G3 mes S58 #328 BRS Be sages a. 


eo 14:14 PAGE 120 
MIN 


Seek "Sang 
RO 
Sune? 
SUM 
SUM1+2 
PC, SUBCLR 
24 


878, SESCAPE 


ey RuSi RS) 


Bat 
PC, GSTAT 
a ,HCS1 
ais stip 


Tre .-' 5B) 


Se TEL 


RKDC (RS) 
6$ 


Se 
PC, SUBCLR 
5s 


TH L SUM1 
STMP2, SUM1+2 


RO 
my. 0100. 


MSG30 
PC. AVGTIM 


SES 0120 

TERA onc TER 

ieee: Be ees SB 
Ei 


K TIME 
REVERSE SEEK TIME 


;CERR AFTER SCLR 
;SETUP FOR CYL 1 
;SEEK CMD 


ND ROY A AFTER SEEK CMO 
;COUNT PASSES THRU LOOP 


ENO ATIN AFTER SEEK CHD 


;CERR AFTER SEEK CMD. 


;FROM LOOP 
;FROM ere 1 

3;PU T THe MULTIPLER ON THE STACK _ 
‘aia vie Tey "south CAND ON THE STACK 
5GET THE ‘Se: o Se Fhe® PRODUCT nti 


;BR IF THIS SEEK WAS REVERSE TO CYL O 
;SUM UP FOWARD SEEK TIMES (LSB) 

;MSB 

;CERR AFTER SCLR 

:SEEK TO CYL O 

;SUM UP REVERSE SEEK TIMES (LSB) 

;MSB 


oR s REPEAT IF NO TO CYL 1 
SCALE 8 TYPE AVG TINE (FOWARD) 
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hie 





ps 
@ 





0 b= b= be bs pe 
ONWUIS WtuH-O 


FGPG Foforu fu furore 





PERT RRM PS eee eae am neces Un vaneNes 
B98 
AE 





me a ee 


BEAT MBER MT 


10440i 053514 


Biaa> Selves GBISEB 
3052 


is 

Osra7 001412 007430 
te 

012765 100000 000000 
pi 37be 1 000010 
1 000009 
013737 O0141e 007426 
004737 O03654e 

104151 

a. 

104154 


012737 000001 001174 


Yl ersh 


64S: MOV 


65$: 


hte 


IF NOT WITHIN 
AVERAGE SEEK 


De Oere . i 14 PAGE 121 
VER EK TIME 
ST SU ae is HE FR ne 


PC, ae ALC 8 TYPE TAY TIME (REVERSE) 
, SCRLF 
SCRLF 
$e5ch . :;G0 TO NEXT TEST 
SESCAPE 
#CCLR, RKCS1(RS) 
SUNIT’ RKCS2(RS) 
SRECAL, KKCS1(RS) ;RECAL CMD 
sRESET CYL DIFF/OFFSET & CYL ADDR REG 
T10, TEMP NP Timor 
PC, FRDY ‘Pino ROY 
124 ‘ROY NOT SET AFTER RECAL CMD 
8 » RRR (RS) :SELECT WORD ! 
#0: RTZ, HMR 
sRTZ NOT NOT aE) DURING RECAL CMD 
10, Tene MEOUT 
Ee Ping arth AFTER RECAL CMD 
SUN rucszt ;DRIVES 
lane fa “DRIVE CLEAR CMD 
Tup TINEOu 
Fe FRO : Y SFTER DRIVE CLEAR CMD 
PC, TSTATN ‘TEST FOR A 
Fi sATTN NOT CLEARED AFTER DRIVE CLEAR CMD 


Ds ema OT PE 8 aaa 
MEASURE 1 TIME 


137 CYLINDER SEEK 


SRDS Ue Be SS * 


MITS TO 
TIME SHOULD BE SUESS TRAN 4OMS 


s LELLALAEAAALEASEAALAAAARELAALELALELALAE LAE RERELERA RARE LERERELAE 
: SCOPE 
MOV 


téT26 





#1,STIMES ;;00 1 ITERATION 











teed 
ees 
6264 
ES 
eSee 
a 
6274 
6275 
pS 
6278 
ey 
ee 
bSes 
es 
2 
esas 
e303 
ese 
£307 
£305 


foto totowototueo 


OO 
NOM £WM-O 





Pottete iss 


012706 


+= 


ol 
To 


& 


888 
ne 
pe aay oy 


001176 


JSR 


3 


% 


@ 888 84 s8ysses geny 


888 *3 


z 


parva ASN 2 35° arr | 


BSTACK, SP 


PC, CALCLK 


RKDC (RS) 
6$ 


STM 1, SUM 


e 
STMPe, SUM+2 


PC, SUBCLR 


STP 1 SUM1 
TMPe , SUM1+2 


RO 


0 14 P 122 
SEEK TI 


» SIMPL 
(SP)+, STMP1+2 


SEG 0122 


;CALIBS TIME TO GO THRU "LOOP’ 
; ITERATION COUNTER 


EP bee Of FoumaD SEEK Te 
ib? HOeb OF REVERSE SEC HITE 


;CERR AFTER SCLR 


EEK cH FOR CYL 137. 
;FIND ROY 

NO RDY AFTER SEEK CMD 
;COUNT PASSES THRU LOOP 


;FIND ATTN AND STEP *LPCNT’ 
;NO ATTN AFTER SEEK CMD 


;CERR AFTER SEEK CMD. 


LK 
3 3PUT MULTI ON THE STACK 
3;3PUT THE MULTIPLICAND ON THE STACK 


¥ 
>GE THE LSB" S OF THE PRODUCT 
3;GET THE’ MSB’S OF THE PRODUCT 

;BR IF THIS SEEK WAS REVERSE TO CYL O 
;SUM UP FOWARD SEEK TIMES (LSB) 

;MSB 


Sek fo ev O 


ie UP REVERSE SEEK TIMES (LSB) 
;MSB 








SSE RR RRERRP RADAR SROM Dag eae fate can Ra TERO RIN MOON Oke m 


Uz 


ny OR I? ac 0 PART 2 
BI es 


104401 
004737 


88 
ee 


ne BA Re A 


64S: 


6S$: 





CMP 
BNE 


nas. 


Wp. 0100. 


MSG32 
PC, AVGTIM 


gin Sum 
BerAVEtIN = 


T10, TEMP 
FC FROY 

l 

#1, RKMRI (RS) 


PC,GSTA 
64S 


fis TEMP2 
PC, FATT 
55 


BR's REDEAT TF NO TO CYL 137. 


;FOWARD SEEK TIME 
‘CALC & TYPE AVG TIME (FOWARD) 


; REVERSE * TIME 


istctin 86 


CALC & B IYPE AV AVG TIME (REVERSE) 


;;G0 TO NEXT TEST 


;RESET cf T SIFEZOFESET & CYL ADDR REG 
IN RKMRE & RKMR3 RESP. 
se TP Timeout 
Roy a SET AFTER RECAL CMD 
oun WORD 1 


;RTZ NOT SET DURING RECAL CMD 
:SETUP TIMEOU 

FIND ATTN 

;NO ATTN AFTER RECAL CMD 


;DRIVES 
-DRIVE CLEAR CMD 
;SETUP TIMEOUT 


;FIND ROY 
NO_RDY AFTER DRIVE CLEAR CHD 
:TEST FOR ATT 


;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 


= gb AE A a a a a a aE 
EST 27 MEASURE HEADS 


MAX VELOCITY OF 


5363 ae vey BY DOING SEEKS BETWEEN 


ASURING THE TIME BETWEEN 


ies & BVERAGE SINCE The DISTEN 





N CYLINDERS 
BETWEEN CYL 128 & 2S& IS KNOWN, 
KS IS CALCULATED & TYPED 


SEG 0123 





UN RKO& ORIVE D TIC PART 2 Y11 27(1008) 07-OCT-76 14:14 PAGE 124 SEQ 0124 
BoREYE. Pid Sadat se Na ea 135 MEASURE MAX VELOCITY OF HEADS 
6374 i IF NOT WITHIN THE SPECIFIED LIMITS TO BE SUPPLIED. 
cue 2s SEARALSSAASAAARAAESRAALA REL ALLSRARAALARAAAEAELALE RA ARAL ALSRLE LES 
035120 o00004 téT27: SCOPE 
6378 035122 12737 900001 001174 ~ MOV #1, STINES ; DQ_ 4 JTERATION 
6379 0351 12706 001100 MOV tack, SP REST STK PTR 
ess a 035134 poso00 a. CLR RO. j ITERATION COUNTER za 
i ' 
e385 Osetas Bosna? | potue Rate i ies OF GUARD SEEK Ti 
6384 035146 005037 001462 CLR SUM1 0 WORD oF REVERSE SEEK TIME 
6385 035152 005037 001464 CLR SUM1+2 ih WORD OF REVERSE SEEK TIME 
4 035156 004737 o42S502 ISR PC, VELCAL ;CLOCK CALIB SIMILAR TO CALCLK 
Re =: 035162 004737 o404Se2 1S: ISR PC, SUBCLR 
Sa 035166 104024 ERROR 24 ;CERR AFTER SCLR 
ps3 035170 012737 035664 001176 MOV #14, SESCAPE 
Baeooe Ot 17 2s NOV i RKESI CRS): ;SEEK CMD TO CYL 400 
He ese fie GR Be = Ree 
035220 004 036542 JSR PC, PROY sFIND RDY 
6398 035224 104131 131 !NO RDY AFTER SEEK CMD 
£333 035226 013737 001416 007426 MOV TSOO, TEMP1 
6401 035234 004737 64S: JSR PC, QKCYLD ;READ CYL_DIFF (NO SHIFTING) 
bY0e 004000 001362 BIT eBITL1,CYLDIF | ;CHECK BIT 7 (NO SHIFTING) 
6 1004 BNE 65S :BR IF SET 
6404 007426 DEC TEMP! 
640S 035254 001367 BNE 64S 
B46 035256 104110 ERROR 110 sCANNOT FIND CYL 128 
6408 035260 005037 oD14S2 65$: CLR LPCNT 
6 665: JSR PC, QKCYLD 
at B3e590 nee Baa888 001362 BIT Betti i EYLDIF ;CHECK BIT 7 (NO SHIFTING) 
ae 035276 001406 BEQ 67S 
6413 035300 004737 o4e726 JSR PC, LOOP 
bile Bem Bias SOMES ye ee 
Bulg 035312 104111 ERROR 111 ;CANNOT FIND CYL 256 
6417 035314 675: 
6418 035314 013737 001424 o07426 MOV TSO0000, TEMP1 
641 Ouse 004737 037152 a. PC FAaTt2 ;FIND ATTN 
at 104132 ERROR 132 *NO ATTN AFTER SEEK CMD 
6422 035330 032737 100000 007370 BIT #CERR,HCS1 
6423 035336 001401 BEQ 
eM 035340 104210 ERROR 210 ;CERR AFTER SEEK CMD 
6426 O3S342 O01 001452 7S: MOV NT, R2 ;FROM LOOP 
6427 035346 rea 001454 MOV LPTIM/R3 >FROM VELCAL 
6428 035352 010246 MOV ,~ (SP) - MULTIPLER ON THE STACK 
6423 035354 010346 MOV R3,-(SP) PUT THE MULTIPLICAND ON THE STACK 
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ba Eee 
= tee 


6451 


SiR ERReROOUNRODD 
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po 
2308-3 


SElee 
Baraat 


ReBReR 
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a3 


00537 


PART 2 


000000 
007426 


007426 
001362 


001362 


MACY11 
Te? 


718: 


125: 


13S: 


“OCT-76 14:14 PAGE 125 
aTY OF HEADS 


a" 29 
zee 
~< 


z 
te 


ei 


58 
a 


s3CALL T TPLY ROUTINE 
ate 


, LSB’S OF THE PRODUCT 
SUM UP FOWARD SEEK TIMES 


;CERR AFTER SCLR 

;SEEK TO CYL 0 

;FIND RDY 

;NO RDY AFTER SEEK CMD 


;READ CYL_DIFF (NO SHIFTING) 
;CHECK BIT 7 (NO SHIFTING) 
;BR IF SET 

;CANNOT FIND CYL 256 


;CHECK BIT 7 (NO SHIFTING) 


;CANNOT FIND CYL 128 


ND_ATTN 
ATTN AFTER SEEK CMD 


sFI 
;NO 
;CERR AFTER SEEK CMD 


;;PUT THE MULTIPLER ON THE STACK 


:-PUT THE MULTIPLICAND ON THE STACK 
;;CALL THE MOTEL Y BOUT TNE 
: DISREGARD THe NSBS, res ‘ 
;SUM UP AiERSE SckR Tings sent 
;DONE 100 SEEKS? 
:BR IF YES 
*ELSE DO AGAIN 


;AVG MAX FWD SPEED 


SEG 0125 


BoRete.Pile Pil 


6486 
6487 


SeeB RRR 


ee ed oe a ed ee oy 


atututatatatatatatatl 
OD NMU © WHO 


a 


ERERR ERR 


o 
fren 
rang 





breottove 13:80 


004737 43112 


001456 
001460 


af 


oo 
naa 


ae 


5 


i 


eae 


“ 


2 
22y2 


POGY 1 271006 te OE etry 


JSR PC, AVGSP 
nove 
MOV SUM1+2, SUM+2 
JSR PC, AVGSP 
TYPE SCRLF 
TYPE F 
cLR 
SEOP 

14$: CLR SESCAPE 
MOV ,RKCS1(RS) 
MOV SUNIT RKCS2( RS) 
MOV #RECAL, RKCS1(RS) 


MOV T10, TEMP1 
JSR PC, FRDY 
ERROR 124 
MOV #1, RKMRI (RS) 
ISR PC; GSTAT 
BIT 80. RTZ, HMR2 
Fon Git 
244 
72$: MOV T10, TEMP2 
JER pe ,FATTL 
my Sf meee 
MOV Sn, AROS! ." 
oe 10, TE TEP 
1 iPRO : 
ISR PC, TSTATN 
BF 73$ 
ERROR 154 





738: 


a> lieape 


PAGE 126 


;CALC & TYPE AVG SPEED 


V SPEED 


:AVGSP ROUTINE 


;IN_RK 
;SETUP T 


sei NOT. SET AFTER RECAL CMD 


;RESET RE, & CYL ADDR REG 


;SELECT WORD 1 


;RTZ NOT SET DURING RECAL CMD 
SETUP TIMEOUT 


Hayy AFTER RECAL CMD 


; DRIVES 
;ORIVE CLEAR CMD 


; SETUP TIMEOUT 


Y AFTER DRIVE CLEAR CMD 
TEST FOR ATTN 


;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 





SEG Ol26 





K10 
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OZR6IC.P11 07-OCT-76 13:50 END OF PASS ROUTINE 


6532 .SBTTL END OF PASS ROUTINE 
6534 H LINCREMENT THE PRES NUMER (SPAGG) NNnaREREH ESSE 
x4 STE END Paes #XXXXX" ER UeRe Dox IS A DECIMAL NUMBER) 

6537 : TO IT 
6538 
6539 


S40 036034 SEOP: 
pote 036034 000004 : SCOPE corn ae 

nerd BieS98 pot 308 INC $3 i sINCR COUNT FOR ® DRIVES CHECKED 
6545 036046 e377 007510 o01220 CHP DRIVS, SDEVCT ARE ALL_DRIVES PRESENT TESTED? 
ond Dab058 500137 015154 plat re NUDRV “ELSE TEST NEXT DRIVE PRESENT 
6549 036064 005037 001102 "CLR STSTNM ;; ZERO THE TEST NUMBER 
el BREN ey Bue fe BASS fiche ne eas Aer 
be eat Giese? 1 001216 BIC #1900 , SPASS 5 sDONTT ALLOW A NEG. NUMBER 
6554 il 1 SEOPCT: .WORD 1 as 
6555 036112 003022 BGT SDOAGN YES 
bog Sats bie? 37 ms HOV (PC)+,3¢PC)+ ::RESTORE COUNTER 
6559 paeise Teeaot 036167 » Sore : SENDNG “END PASS a” 
6560 e136 a1a74g 001216 MOV $PASS,-(SP) iigNe SPREE FOR TYPEOQUT 
Fb EES IPA cacy Name se eee a lene! “TT 
BERS 036140 013700 o0004e SGET42: MOV dee :GE7 MONITOR ADDRESS 
6564 O31 001405 Q ‘ SDOAGN + Rei THE NO,MONITOR 
cee 036150 004710 SENDAD: JSR PC, (RO) ::G0 TO MONITOR 
6567 036152 000240 NOP js SAVE ROOM 
bere O18 ppp Sup _ NOP *:ACTIL 
bert 036160 000137 bitin IMP a(PC)+ ; sRETURN 
p57 036162 013534 SRTNAD: . STs 

164 377 377 000 SENULL: ‘BYTE -1,-1,0 -:NULL CHARACTER STRING 

bom 036167 pis puede ou2116 SENDMG: .ASCIZ <15><12>/END pass’ #7 
6576 036202 BBoo43 
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bo 


oo 
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as 


3 
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a 


SCION 


SF 


fin 
a ie 


8 
oO 
J 


Be 


PBR URaeoRSeas 


ETEESTEEE: 
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SUBROUTINES ™ 


-SBTTL SUBROUTINES 
;SUBROUTINE TO CLEAR ALL FLAGS FROM DOUMP THRU DOTIM 


CLRFLG: MOV 
MOV #-17. ,R1 
1$: CLR )+ 
INC 1 
BNE 1$ 
RTS PC 


ITYPE PROGRAM ID IF FTITLE=O 
TITLE: TST  FTITLE 
INC FTITLE 


TYPE MSGI PROGRAM ID 
.SBTTL GET VALUE FOR SOFTWARE slr TCH REGISTER 

TST a2 ;;ARE WE RUNNING UNDER XXDP/ACT? 

oS $ :BRANCH IF YES 
P SENV, #1 i ARE WE RUNNING UNDER APT? 

eS SUR, ASHREG ti SOF Wt POUT TCH REG SELECTED? 

GTSHR ‘ae ttGET SOFT-SWR SETTINGS 
bus: MOVB #1, SAUTOB ;;SET AUTO-MODE INDICATOR 


ff!) orts Pc 


ROUTINE TO INPUT DRIVE NOS. TYPED IN & SET 
;DRIVS, DRIVO-DRIV7 REGISTERS APPROPRIATELY 


GDRVS: RDLIN 
MOV (SP)+, RO ;GET STARTING ADDR OF ASCII STRING 
MOV 4-8. R : T 
1$ MOVE  (RO)+ *GET ASCII CHAR 
BIC #177400, Re *MASK HI BYTE 
MOV #ORIVO, R3 DRIVE FLAG ADDR 
MOV #60,R4 
23: CMP RY, Re ;WAS TYPED CHAR O THRU 7? 
BEQ 3s. “BRANCH IF YE 
TST (R3)+ =NO, INCREMENT DR FLAG ADDR 
INC RY | 
CMP RY, #70 
BNE 2$ ;S/B 0-7 OR TERMINATOR 
S Re 
4§ 
CMP R1, #-8. 
BEQ 6$ ;DEFAULT ALL DRIVES 


BUEYE ASS PE RIREDHEa Pm # 
on aR BR ore 


sexe Gseare Oise? O07si0 
6639 400 042702 


036 177400 
6640 4 000054 
Beil 4] 
66 41 702 
6643 036414 001001 
bea 036416 000761 
Fated 036420 104401 os5041 
Be? 036424 000137 d1e742 
6649 036430 005201 
6650 036432 001330 
be! 036434 000771 
pees 036436 005237 007540 
6654 O36442 000207 
6655 
6656 
6657 
6658 
z555) 
6660 O36444 104412 
6661 O36446 012600 
6662 O36450 005700 
6663 O364S2 001403 
6664 036454 010037 001264 
6665 036460 000207 
BEBE 036 012737 177440 001264 
eeee 
ces 
6670 
6671 
6672 
6673 O36472 104412 
6674 036474 012600 
6675 036476 005700 
6676 036500 001405 
6677 036502 010037 001314 
6678 036 004737 036524 
6679 036512 
6680 036514 012737 000210 001314 
6681 000771 
6682 
6683 
cto 
6685S 
eee? 036524 013700 001314 
6688 036530 012720 044130 


M10 
GET VALUE FOR SOF TUARE Si irc REITER sc 
tFOUND TERAINATOR, Extt 


7$: 


3$: 


4S: 


Ss: 


6S: 


picrLe 


SIZFLG 
PC 


SEG 0129 


SET UP FLAG FOR THE DRIVE 
aye rey! pert of RIVES TO BE TESTED 


ist IT of 


iYES, 
$° IT EET wORO, 
HIE NOT, SOMETHING WRONG. 
"FOUND TERMINATOR, EXIT 


;ONLY 0-7 ALLOWED. 
;START ALL OVER 


3578 NO MORE THAN 8 DIFF 
;DRIVES TYPED _IN. 
IF NORE, HAVE ERROR 


;D0 TEST 1 (SIZING) 
sEXIT. 


ROUTINE TO INPUT RKBAS OR DEFAULT. 


GBA: 


1$: 


_ 
TST 
BEQ 
MOV 
RTS 
MOV 
RTS 


;GET LOW ORDER FROM STACK 
;BRANCH IF DEFAULT. 


£1770, SONNE ;DEFAULT VALUE 


ROUTINE TO INPUT RKVEC OR DEFAULT 


GINT: 


es: 
1$: 


RDOCT 


(SP+,RO 
RO 


1$ 
RO, RKVEC 


PC; SETINT 
#210,RKVEC 
es 


;GET LOW ORDER FROM STACK 
;BRANCH IF DEFAULT 


;DEFAULT VALUE 


!ROUTINE TO SETUP INTERRUPT VECTOR & PRIORITY 


SETINT: MOV 
MOV 


RK 


VEC,RO 
SINTER, (RO)+ 


; INTER ADDR TO RKVEC 





036540 


013710 001316 
000207 


032765 000200 
001010 

005337 007426 
eed 

re Bi 
000207 

062716 000002 
004737 036676 
004737 O40C16 
000207 

032765 000200 
001014 

005337 007426 
bees? 000036 
004737 040016 
bee?16 900002 
ise ait 
000207 : 
016537 000000 
bee Su 
Ree Bate 
Hee ale 
Hee Bl 
016537 000020 
atta 000026 
Ree Be 
016537 000030 
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036534 
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T VALUE FOR SOFTWARE SWITCH REGISTER 


MOV _ , (RO) ;PRS TO RKVEC+2 


RTS 


! ROUTINE TO FIND a READY (RDY) DURING A DELAY 
sENTER an e om N_ TEMP 
7 PRESENT. (ERROR ay DAR 


fp YEDY NT (SKIP OVER ERR 
fair 2 OBTAI NED BEFORE 7 RETURN PBR EITHER CASE 
éRoy: BIT #RDY,RKCS1(RS) 
DEC TEMP1 
aye Be HOLD HO STORE ALL RK611 REGS IN HOLDING REGS 
338 PC rAekPRR ‘CHECK FOR eer etaL SPRA ; 
RTS "NO RDY, EXI 
1S: ADD “4 (SP) SKIP OVER ERROR 
JSR PC, CKCERR ;CHECK FOR SPECIAL CERR 
RTS PC 
*ROUTINE TO FIND CONTROLLER READY AND STORE DRIVE REGS ONLY 
FRDY1: BIT #RDY , RKCS1(RS) 
BNE 1$ 
DEC TEMP1 
BNE 
MOV RKMR2 (RS), HMR2 
MOV RKMR3(R5);HMRS 
JSR PC,CKCERR’ ;CHECK FOR SPECIAL CERR CONDITIONS 
1S: Ao #2, (SP) ‘SKIP OVER ERROR 
MOV fre >, HARE 
MOV RKMR3(R5S)’ 
ISR PC, CKCE ;CHECK FOR SPECIAL CERR CONDITIONS 


ISTORE ALL RKb11 REGISTERS IN HOLOING REGS 
g 


Mov RKCSI(RS) HOS 


MOV RKCS2(RS)/HCS2 
MOV RKWC(RS) , HC 

MOV RKBA(RS), HBA 

MOV RKDA(RS) , HDA 

MOV RKDS (RS), HDS 

MOV RKER(RS) HER 2, 
MOV RKASOF (RS) HASOF 
MOV RKDC(RS) HOC 

MOV RKNR1 (RS), HMRI 

MOV RKMR2(RS); HMRe 

MOV RKMR3(RS) -HMRS 

MOV RKECPS(RS3 , HPOS 





SUB BERIT 


6745 037014 9 
7022 


o 
& 


dando 


: 


0-20 = Ph + 0-2 =p <> -¢ &-2 B= & 2 b 2H 


BSEGRVBRNS COR 


eaten 


16537 
000207 


000032 07424 


33565 007407 


we 


007366 900017 


_ Bll 
et babe FoR gor tuake sutton aecrstee, | 


MOV RKECPT(RS) ,HPAT 
S PC 


RT 
HECK FOR COR RECT ATTN 
; URN IFA TN NOT PRE (ERROR CONDITION) 
;RETURN +2 IF ATTN PRESENT (SKIP OVER ERROR) 
tsTatN: MOV RY, -(SP) ;SAV RY 
SUIT RY 
BITE ATTN(RY) , HASOF +1 
1$ ;BRANCH IF ATTN NOT PRESENT 

MOV it RY RESTOR RY 

BOD 82, (SP) tINCR RET ADDR TO JUMP OVER ERROR. 
1S: MOV (SP)4,R4 RESTOR RY 

RTS PC 
FROUTINE TO FIND ATTN WITHIN TIMES GREATER THAN 1 SEC 
sENTER WITH TIME IN SEC 
:RETURN IF NO ATTN ( ITTON) 
: TURN +2 IF ATTN F 
:STATUS IS OBTAINED BEFORE THE RETURN FOR EITHER CASE 
FATTI: RY, -(SP) :SAV RY 

NOY pel TEMP 

MOV SUNTT. RY 
1S git ATTN(AY) ,RKASOF+1(RS) ;FIND CORRECT ATTN 


R 
Qe 
DD 


Gomnae 
um 


RS ) ; SELECT 


WORD 
k PC asTal eer LATEST STATUS 
hae bee 
2s: CL RKMRI (RS) 
JSR PC, GSTAT GET ST STATUS AFTER ATTN SEEN 
MOV (SP)+.R4 STOR 
ADD , (SP) : SKIP VER ERROR 
RTS PC 


NE TO Ay Ag WITHIN i SEC 


ENTER WITH C IN_TEMP1 

; URN TF NO TTN TERROR) 
TURN +2 "f ATTN ro 

:S ATUS IS OBTAINED FORE THE RETURN FOR EITHER CASE 


FATT2: MOV -(SP) :SAY RY 
: SuATT RY 
BITB ATTN(AY),RKASOF+1(RS) ;FIND CORRECT ATTN 


SEG S131 
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OS ore wee 
13 001403 
ee Bes 
co Mnte 
Srrash ions 
BEE cocks 


eee eee eee eee 


Ei aiuiee ee era cian MciMeos unt i bie 


007426 
007426 
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SE POR SOF TMARE SuTTCH 


4 PAGE 132 


me 


- 
GISTER S66 Cize 


BCP Fins 
: STOR fa , 


ean, ss Sere + 12 US TO EXIT 


WITH A COUNT I 
Avy: TST TEMP 
TEMP 


1$: . PC 


i THIS ROUTINE TYPES BYPASSED DRIVEs. 


oa TYPE 


aE 


ENTER WITH DRIVES IN RO 


rR TYPEOUT 


Free 1 woe 


THIS ROUTINE READS ALL MSG A & B WORDS & CHECKS THEM AS REOQ’D. 


MOV agree 
ee 
ars Be 
huknse: Mov BSP) ,CHKFLG 
JSR PC’ GSTATL 
Ho BIER 
BIS SUNtT' E48 
MOV TEMP1,-(SP) 
RA 
MOV TEMP1,E.AO 
Nov AL, TEMPL 
MOV TEMP1,E.AL 
MOV E.A2, TEMP! 


‘BURP RETORN AOGR TS 1ST ERROR 


;GET ALL ACTUAL DRIVE & CONTR STATUS 
;SET UNIT 8 


;SAVE TEMP1 


;GET PARITY FOR MSG AD 


;GET PARITY FOR MSG Al 













BUSSPRPRERERI GLC ibi i PERERPRMBMIA Lact cal tits és 


| 
| 
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° 
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rte 
FET ETE 


3 
a 


Bie © & 


Scr G83 Succl Coe SESE 


737 
13737 


013737 


FE 


idk 


037610 


001000 


I ae ad C_ PART 2 


001176 


ps Bt 4 


& 
a3 == 


es Sue S48 


3 343 


— 
ow 
ee 


a 
S83 Sas asS84 3 


4$: BIT 
BNE 
SS: ADD 
CMP 


Dll 


T-76 14:14 PAGE 133 0133 
Sor FUARE Sui TCH RecISTER a8 0129 
te gee GET PARITY FOR MSG a2 
TEMP1,E.A2 
.BO, TEMP 
GET PARITY FOR MSG BO 
TEMP1,£.80 
E.B1, TEMP 
:GET PARITY FOR MSG B1 
1,£.81 
E82 TEMP 1 
¢ GET PARITY FOR MSG Be 
tee 
.B3, TEMP1 
Fc, Stra GET PARITY FOR MSG 83 
1,£.83 
(SP)+, TEMP1 -sRESTORE TEMP1 
SESCAPE,STMPS :SAVE ESCAPE 
H.AO,E. AO ~;TEST AQ 
1S SESCAPE ELSE SETUP ESCAPE 
(SP} =( :COPY RET ADOR. 
pe 38 RETURN TO MAINLINE ERROR 
#SW9, ISWR ;RET HERE FROM MAINLINE ERROR 
$8 BR IF LOOP ON ERROR 
#2, (SP) ‘BUMP RET ADDR TO NEXT ERROR 
H.B0,£.80 ; TEST -iS BO 
84S, SESCAPE ee SETUP ESCAPE 
SP}, -(SP) Y RET ADOR 
ORE TURN TO MAINLINE ERROR 
8SW9, ISWR one HERE FROM MAINLINE ERROR 
8 BR IF LOOP ON ERR 
82, (SP) BUMP RET ADDR TO NEXT ERROR 
H.AL,E.Al TEST MSG Al 
:BR IF OK 
$, SESCAPE 
(sp). -(SP) 
pe 
, aSWR 
#2, (SP) 
H.B1,£.81 sTEST MSG B1 
tg ‘On IF OK 
#10$, SESCAPE 
(SP), -(SP) 







22 
“eR 
z 
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o 
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g 


Se Gan & 


Se 3) fou es 35 | 


~ 


SES 


38 


ee 


cS 


E 
B 


8 
cS) 


2 
y 


GGG Ree Ge Goss 


3 
B 
: 


001000 


007426 


007372 





ee eet mx 


: TEST MSG A2? 

:PUT INFO CYLDIF, DO NOT CMECK 
lens Be? 

‘PUT INFO IN CYLADD, DO NOT CHECK 
;TEST MSG 83? 


;PUT INFO IN SECTOR, DO NOT CHECK 
;PUT INFO IN HEADA, DO NOT CHECK 


;RESTORE ESCAPE 


AEE 


THIS ROUTINE GEG FOR CERTAIN ~~, CONDITIONS ONLY 
0 OR MDS SET MESSAGE A 


RTS 
108: Be ~ , aSWR 
118: , (SP) 
128: BIT 8T.A2, CHKFLG 
FR SRCYLD 
138 BIT 8182, CHKFLG 
BEQ 14 
ISR PC, RCYLA 
148 BIT 87.83, CHKFLG 
FE , RSEC 
JSR PC; RHEAD 
Vv TMPS , SESCAPE 
iss Hoy SINPS, SE 
20S: MOV SSTACK, SP 
MOV STnPS , SESCAPE 
JNP 
1.£.: IF NED, 
EKCERR: TST BYPCERR 
BNE 4 
git . ,HCS1 
RTS PC 
1S: BIT 8CT0,HCS1 
BEQ 23 
ERROR 125 
RTS PC 
2s: BIT 8NED,HCS2 
BEQ 3$ 
ERROR 126 
3S: BIT #MDS, HCS2 
Q 4 
ERROR 127 


4§: RTS PC 
3 


i THI ROUTI 
TT THEN WATT 


& B ARE INVALID 


;BR IF CERR 


OR TERROR, Ms 
TO ERROR, MSG A & B INVALID 


;BR_IF NOT NED 
;NED ERROR, MSG A 8 B INVALID 


;MOS ERROR, MSG A 8 B INVALID 


nour Ors me an pee COMMAND TO GET STATUS 


i IF ROY NOT cet Web 6 BY Y HET TIMEOUT, AN ERROR IS FLAGGED 


GSTAT: MOV TEMP1 ,-(SP) 


;SAVE TEMP1 





ce re ee 


et ee ee eye se O13 
i Bier ae rae ny BSELORV RCESIUAS) GET STATUS WITH SELECT DRIVE CMD 

34 

40 


1 
1 
i 737 PC yf ROY 
£325 Bast bea ZBRoR 11? Raye Nor SET BY END OF SELECT DRIVE CMD 
6974 O40134 012637 007426 MOV (SP)+, TEMP! “RESTOR TEMP1. 
fare 040140 000207 RTS PC 
6 ITHIS ROUTINE GETS STATUS OF ALL DRIVE REGISTERS (MSG AO-A3, B0-B3) 
£978 8 ALL CONTROLLER REGISTERS. 
6979 : 
£980 01 Saeare &stari: HOV 1,-(SP) <a 
ae ty ws oat ea 


g 


Samia Shey a's * 


SSELDRV RAGSICRS) CET GET STATUS 


oo 
oe 


ry 
= 


ovoie 
ae Se 
sie —_—d 
foe? Meats base — moe 0,15 sFIND ROY & STORE DRIVE REGS ONLY 
6388 odes 104117 ERROR 11? sROY NOT SET BY END OF SELECT DRV CMD 
ceo Geass Gti Gus BY HER TSE FR 
6992 040232 012765 100000 o00000 MOV SCCLR, RKCS1(RS) 
6 peo 1 soieee T?RKCS2(RS) 
Egg 040254 OLEres 000001 SaOtee nov a2, Axi (Re) SELECT WORD 2 
3 Ba0e55 poapae reeset nacctiee TSR : Orem ;FIND ROY 8 STORE DRIVE REGS ONLY 
tains Ss ive ixggg 
ron 040312 a 100000 000000 MOV Se ae 2 
rs ee bieree leet GP BARA ssrecr uno 
7005 012765 000001 MOV 8SELDRV, RKCS1(RS3 
rae8 bara Gaeeig Oe MO BRCERBYL- JFIND ROY & STORE DRIVE REGS 
7008 040354 104117 ERROR 11? sROY NOT SET BY END OF SELECT DRV CMD 
7310 BHOSEN 813737 Booues Bopude HOV HARSH SR TORE NEG 81 
wis Gece Glee poms meme aay Sy eE 
Ris Bios Slerss Giron BRAUER FARMS) SeLecr woo 
mais Bibs teats omelO NE eae 
7018 O40430 013737 007416 OD7440 MOV HMR2, H. AD 
7019 O40436 013737 007420 OO74H2 MOV HMR3, H.B0 + RTORE NEG BD 
7031 prow 012637 007426 Oy (SP)+, TEMP ;RESTORE TEMPL 
7023 


re ee ee eee 







2 | 
= 
| 


SE aE ee ORT ee Ee Tepe. ARE SuttcH RecIsTER’ | 


7025 THI I YSTEN LEAR 8 WAITS FOR CONT 
obe6 He Rutt Pheine cet Eng OF THE Theo, ON ‘PeRER PEADT coe 
ine THEN TATUS & CHECKS FOR CONTROLLER ERACR: Cope) 
Toes ‘at +2 F RRERA CLEAR 
7031 o4o4s2e O01 oo0010 SuBCLR: MOV SSCLR,RKCS2(RS) ;SUBSYS CLEAR 
7032 O40460 pigreS actes 007426 MOV T10, TEMP! 
7033 O40466 004737 O36S4e2 ISR PC, ROY ;FIND RDY 
7034 O40472 104 ERROR 120 *RDY NOT SET BY END OF SCLR 
7035 74 O13 901222 900010 HOV SoNIT RKCS2(RS) :CURRENT DRIVE 


RKMR1 (RS) : SELECT 


: 


-- -- reece nn career names aneameeneennemeneanene, 
: 
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7037 O40S0& 004737 040100 PC, GSTAT GET STATUS 
38 Pies 100000 007370 eit acERR, HES! :CHECK FOR CONT ERROR 
RTS 
7041 o40524 16 ogo00e 1S: #2, (SP) ;SKIP OVER ERROR 
040530 R PC 


oe ee 


DRIVE D 


07-0 


oO 


I 
T-76 


AGNOSTIC PART 2 
-76 13:50 


MACY11 27(1006) 07-0CT-7 Midd chen 138 : SEG 0138 


GET VALUE FOR SOFTWARE SWITCH 
;READ THE SECTOR COUNT IN RKMR3, RIGHT JUSTIFY IT & STORE IT IN ‘SECTOR’ 
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OZR6IC.P11 07-OCT-76 13:50 GET VALUE FOR SOFTWARE SWITCH REGISTER 
? 000026 RDSEC: MOV 83,RKMRI(RS)  ;WORD 3 
Fie Bypass Baars? BabioD MR OBST GaTA 
rs BS are We a EEE sect 
1 Bises he BLE aE TOR ee’ SRIGHT JUSTIFY 

7052 4 006237 OO1406 ASR SECTOR ‘SECTOR 

7053 040570 006237 ASR SECTOR : INFO 

thee Bubeod posses CULO Are BECO 

7056 , —_ 

7057 READ THE CYL DIFF/OFFSET IN RKMR2, RIGHT JUSTIFY IT 8 STORE IT IN ’CYLDIF’ 
oboe O40602 012765 O00002 000026 ROCYLD: MoV #2,RKMRI(RS) § ;WORD 2 

7060 040610 004737 serie sore JSR PC: PC, Gs cgi 

este >, CYLDIF 

Riu lex Fi 

7064 O40634 006237 001362 ASR cMLOHE ‘CYL DIFF/OFFSET 

7085 O40640 006237 001362 ASR CYLDIF : INFO 

toe? DNDESO BeS727 BOLSES Cee OKYLDIE 

SO 1 000777 CMP YLDIF , #777 CHK TO SEE IF RET IN COMPL. FORM 

ees DYDEER poeees we 2 BR tr VE 

706 001362 CL CYLDIF ‘CLR IF YES 

7070 O40664 000207 1S: RTS PC 

ee 

7073 QUICK SELECT DRIVE COMMAND TO OBTAIN CYL DIFF 

ite OYO6E6 013746 007426 QKCYLD: MOV TEMP1, -(SP) ;SAVE TEMP1 

7076 O40672 012765 000002 o00026 MOV #2,RKMRI(RS)  :SELECT WORD 2 

7077 040700 12768 g00901 900000 aSELORV RKCS1(RS} sSELECT DRIVE CMD 

7078 040705 01 1412 007426 MOV Tl 

7079 040714 032765 000200 OO0000 1S: BIT #RDY,RKCSI(RS) ;TEST FOR CONT RDY 

7080 O407e2 001004 BNE ‘BR IF THERE 

7081 040724 007426 DE MP1 

7082 040730 001371 BNE 1§ 

7083 O40732 10411 ERROR 117 NO RDY AFTER SEL DRV CMD 

1 1 2s: 

Pope Bapzas pubes, PoggSY poles gic atc. arccRcbIE CY LDIF :GET CYL DIFF ONLY (NO SHIFTING) 
7087 O407SO 012637 O07426 MOV sRESTORE’ TEMP1 

7088 040754 - 000207 RTS Si 

7s0 ?READ THE CYL ADDR IN RKMR3, RIGHT JUSTIFY IT 8 STORE IT IN ’CYLADD’ 
7092 O40756 012765 000026 ADCYLA: MOV #2,RKMRI(RS)  ;WORD 2 

rhea unre Braves | Baod i" AY 

i 17 ae Bre roy: Ny CAoDS, CYL 

roae Dinos pocss? | BRT SEG Bee YL ADD “RIGHT JUSTIFY 

7097 O41010 006237 001364 ASR CYLADD L ADDR 

7098 41014 006237 001364 ASR C¥LADD i TNEO 

te oa ibe4 ppesar RTS PC 


NNN 
Coed aed 
ReB 


READ THE CYL DIFF/OFFSET IN H.A2, RIGHT JUSTIFY IT & STORE IT IN *CYLDIF’ 





P2PPII2IzE 
BRS AEE is) 


bb 2 0 Po bs be hoa pe fe 


2299999 
nine 


zzzzte2 
NEGRO ER 


Zezeee 2222 
NESReE SEB 








K1l1 
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DIAGNOSTIC PART 2 MACY11 27( 
TCH REGISTER 


1 
-0CT-76 13:50 GET VALUE F 


ise Tbo0i7 GRises Awd: poy wich. Obie) cw DIE jGLEAR UNMANTED INFO 


362 ASR USTIF 
ey Gls Ss ue 
Bbt3e3 ae OEYLDIE 
023727 001362 000777 CMP CYLDIF, 8777 ; CHK TO SEE IF RET IN COMPL. FORM 
001362 at: CYLDIF ‘ELSE CLEAR 
000207 1S: RTS PC 


READ THE CYL ADDR IN H.B2, RIGHT JUSTIFY IT & STORE IT IN ’CYLADD’ 


013737 og7ase2 001364 RCYLA: MOV CYLADD 
042737 160017 001364 BIC tai CADD>,CYLADD ;CLEAR UNWANTED INFO 
006237 001364 ASR C RIGHT JUSTIFY 
006237 001364 ASR CYL 
006237 001364 ASR CYLADD 
006237 001364 ASR CYLADD 
000207 RTS PC 
"READ THE SECTOR COUNT IN H.B3, RIGHT JUSTIFY IT & STORE IT IN ’SECTOR’ 

013737 007456 OO1408 RSEC: MOV CTOR 
042737 177017 OO1406 BIC tat SECT>,SECTOR ;CLEAR UNWANTED INFO 
006237 001406 ASR SECTOR sRIGHT JUSTIFY 
006237 001406 SECTOR 

37 001406 ASR CTOR 

37 001406 ASR CTOR 
000207 RTS 


: READ THE HEAD ADDR IN H.B3, RIGHT IT & STORE IT IN ’HEADA’ 


013737 O074S& 001476 RHEAD: MOV HEADA 
042737 170777 OO1476 BIC Hee HEAD> ,HEADA__;CLEAR UNWANTED INFO 
006237 001476 ASR HEADA *RIGHT JUSTIFY IT 
000337 001476 SWAB OCH 
000207 RTS PC 
FIND SECTOR 23 
* RETURN If NOT FOUND 
“RETURN +4 IF FOUND 
013737 001422 ocO7426 FSEC23: NOV TSO00, TEMP1 ;SETUP TIMEOUT 
004737 O40S3e 15: JSR PC. ROSEC :READ SECTOR 
27 001406 900023 CMP SECTOR, 423 *TEST FOR SECTOR 23 
O14 BNE ‘BR IF NOT 23 
004737 JSR 
001406 000023 CMP SECTOR, #23 
Late BEQ ;BR IF READ SAME TWICE 
040532 JSR PC, RDSEC “ELSE TRY 1 MORE TIME 
023727 OO1406 000023 CMP SECTOR, #23 
001404 BEQ 3$ :BR IF 17 





UNIBUS RKO& DRIVE 2 ae te PART 2 


DZREIC.P11 07-OCT-76 


71 1 007426 
HES Bilas 
rigs 041302 000207 
7163 O41 062716 O00004 
7164 041310 Bea20? 
7165 
7166 
7167 
7168 
7169 
7170 
217) aged 012737 1 
His le Bless Ras 
yin aia : 000040 
He IRS Binge somes 
71 1 1367 
7178 041350 005337 007430 
7179 041354 001356 
He Bs Be mee 
7182 041364 000207 
7183 
7184 
7185 
7186 
7187 
zie aie Teed 000372 
HG Bis Bee ais 
7191 O41406 032737 010000 
| Ae RI Be cons 
71949 Buus 1367 
7195 O414e4 000207 
7196 O41426 062716 
7197 041432 000207 
7198 
7199 
fa 
7203 
7204 O41434 O10046 
750e Bi4a6 12700 001536 
ro ice Bere 
7208 O41446 013737 001474 
re Bilt Bee Bie 
751i 041464 Boe S37 001500 
7ele 041470 006337 001500 
. 7213 041474 006337 001500 





007426 
000026 


007416 


007416 


001500 


MACY11 27( 1006) 


2$: DEC TEMP! 
BNE 1§ ;TRY AGAIN 
RTS PC 
3S: ADD #4, (SP) ;SKIP OVER ERROR 
RTS PC 
!ROUTINE TO FIND HEADS HOME IN RKMR2 WORD 1 BEFORE SPECIFIED DELAY 
‘ENTER WITH TINE IN SECONDS IN TEMPe 
:RET F NOT FOUND 
*RETURN+2 IF FOUND - SKIP OVER ERROR 
FHDHM: MOV 8-1, TEMP] sALL 1°S 
MOV #1, RKMR1(RS) WORD 1 
1S: ISR PC’ GSTAT 
BIT . 
BEE \ 
BNE $ 
DEC TEMP2 
BNE HDHM 
RTS PC 
2S: ADD #2, (SP) ;SKIP OVER ERROR 
RTS PC 


07-OCT-76 14:14 PAGE 141 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


ROUTINE TO FIND LOQD HEADS IN RKMRe WORD 1 BEFORE THE TIMEOUT 


IF _NOT 


;RET FOUND 
;RETURN+2 IF FOUND: SKIP OVER ERROR 


tLoap: Mov 
1S: JSR 


PrILL 
TER WITH H CYL YL # IN 
ENTER WITH HEAD’ s 
NTER W 1H FORMAT 
tupTAB: MoV RO,-(SP) 
MOV R1.-(SP) 
MOV #HOTAB, 
CLR R1 
MOV HEAD, HD1 
ASL HD 1 
ASL HD1 
ASL HD1 
ASL HD 1 
ASL HD 1 


IN + PORMAT? 


;WORD 1 


;SAV RO 


;SA 
Fay Bt WORD TABLE ADDR 
;SECTOR COUNTER 


;SETUP HEAD # FOR WORD 2 OF HEADER 





UNIBUS RKO& DRIVE DIAGNOSTIC PART 2 
OZREIC.P11 07-OCT-76 13:50 
7214 041500 013737 9001502 001504 
7215 041506 000337 001504 
e5i8 O41S1e 006337 001504 
aoe ate tte 001366 
7220 bu e54 19 001500 
7e2l 041530 053710 001504 
ress 041534 004737 041614 
7e24 041540 013737 001366 007426 
7eeS O41546 011037 30 
rect O415S2 043737 001366 007430 
041560 042037 007426 
7228 041564 Re 007426 007430 
ios 041572 013720 007430 
7231 041576 1 
7e32 041600 Oe0le7? 00026 
ES, 041604 001344 
ex O4l610 015600 
7237 BMieie 
7238 
7239 
7240 
7241 
on 041614 O1 
7243 041615 001502 
7e44 O4lb22e 001016 
7e4S5 041624 Ol2e702 003362 
7246 041630 004737 041714 
7e47 041634 052710 100000 
7e49 O41640 012702 005362 
72eSO 041644 004737 041714 
7eS1 O41650 052710 040000 
7253 041654 012602 
7e38 041656 
7256 O41660 012702 002362 
7257 O41664 004737 041714 
7258 041670 052710 100C00 





004362 
004737 041714 
040000 


MACY11 27(1006) 
GET 


M11 


07-OCT-76 14:14 PAGE 142 


VALUE FOR SOFTWARE SWITCH REGISTER 


MOV FORMAT, FMT1 
SWAB SséMT iL 
ASL FMT] ;SETUP FORMAT FOR WORD 2 OF HEADER 
1S: MOV CALADD,(RO)+ §§ ;HEADER WORD 1-CYL ADDR 
MOV Ri, (ROS ‘HEADER WORD 2-SECTOR NO 
BIS i‘ (RO) : -HEAD NO 
BIS FMT1. (RO) : -FORMAT 
ISR PC, SECFLG 
MOV CALADD, TEMP1 
MOV (RO), TEMP2 
BIC AbD, TE 
BIC (RO)+, TEMP 
BIS TENPL, TEMP2 
MOV TEMP2? (RO)+ sHEADER WORD 3-HEADER CHECK 
INC Rl ;SECTOR CTR 
CMP R1, #22. ALL 22 SECTORS DONE? (66 WORDS) 
BNE 1$ “BR IF NO 
MOV (SP)+,R1 RESTOR RI 
MOV (SP)+'RO RESTOR RO 
RTS PC 
THIS ROUTINE GETS INFORMATION FROM THE BAD SECTOR TABLE FILLED BY A PREVIOUS 
TEST & SETS BITS 14 & 15 APPROPRIATLY. 
dECFLG: MOV Re, -(SP) ;SAVE R2 
TST Remar 
BNE 1S ;BR IF 20 SECTOR FORMAT 
MOV #BSE22H+8. ,R2 
JSR PC. FLGTST ;GET HARDWARE DETECTED FLAG 
BIS #BiTIS, (RO) *RETURN HERE IF GOOD SECTOR 
MOV wBSE?2S+8.., jR2 ; ELSE RE 
JSR PC. FLGTS :GET SOF THERE HER ECTED FLAG 
BIS #BtTI4, (RO) *RETURN HERE IF GOOD SECTOR 
MOV (SP)+,R2 sELSE RETURN HERE 
RTS PC 
1S: MOV #BSE2OH+8. ,R2 
JSR PC.FLGTST ;GET HARDWARE DETECTED FLAG 
BIS #BITIS, (RO) RETURN HERE IF GOOD SECTOR 
MOV #BSE20S+8. ,R2 
JSR PC. FLGTST ;GET SOFTWARE DETECTED FLAG 
BIS #BfT14, (RO) *RETURN HERE IF GOOD SECTOR 
MOV (SP)+,R2 ;RESTO} =? 
RTS PC 


THIS ROUTINE DOES THE ACTUAL SCANNING OF THE BAD sec TOR TABLES 
;ENTER WITH THE ADDRESS OF TABLE (BSEecH, BSE2eS, ETC.) 


IN TEMP1 


SEG 0142 
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DoREIC. Pll 07-OCT-76 13:50 GET VALUE FOR SOFTWARE SWITCH REGISTER 

7270 RETURN IF NO COMPARE 
rer :RETURN+4 IF COMPARE 
oe73 041714 010346 ELGTST: MoV R3, -(SP) SAVE R3 
7275 Ov1716 021227 177777 1S: CHP (R2), #-1 ;SEE IF ALL 1’S 
5559 B41 754 B 2803 MOV (SP)+,R3 ;RESTORE R3 
7e8 041726 000207 RTS PC : 
7280 041730 022237 O0136 ~~ 2s: CMP (R2)+,CALADD § ;SEE IF=CYL # & ADR PTR TO TRK/SECTOR WORD 
7e8 1734 001403 BEQ 

1736 062702 oo0002 ADD #2,R2 GO TO NEXT CYL WORD IN TABLE 
7283 041742 000765 BR 1$ 
7285 041744 013703 001474 38: MOV HEAD, R3 GET HEAD # FROM FHDTAB ROUTINE 
7286 041750 000303- SWAB OS séRG 
7287 041752 050103 BIS R1,R3 ;ADD SECTOR # FROM FHDTAB ROUTINE 
7288 041754 022203 CMP (R2)+,R3 *SEE IF SECTOR/HEAD COMPARE 
7289 sun anseal ‘ ce 8 INCR PTR TO NEXT CYL WORD 
reat Bat SEB 000756 gf 1$ FELSE TRY NEXT CYL 
7535 041762 012603 4S: MOV (SP)+,R3 sRESTORE R3 
7294 041764 062716 OO0004 ADD #4, (SP) INCREMENT RET ADDR 
7295 041770 000207 RTS PC 
728 :THIS ROUTINE SORTS THE RHTAB TABLE FROM WHATEVER SECTOR IT BEGINS 
7299 tWITH AND RE-WRITES THE INFO IN SRTTAB TABLE TO BEGIN WITH SECTOR O 
pant 041772 O1004%6 SORT: MOV RO, -(SP) ;SAVE RO 
7302 041774 O10146 MOV R1,-(SP) SAVE RI 

aa 
7 1 001406 #1, 
7305 O42010 004737 O42100 ISR PC} MULT6 ;MULT SECTOR BY 6 
ed 042014 012700 oo0204 MOV #132. ,RO 
7308 2020 163709 901106 SUB SECTOR, RO ;RO-SECTOR TO RO = INDEX 
7310 oS 530935 001742 001406 ADD #RHTAB,SECTOR ;SAVE INDEX 
7312 042036 062700 001742 ADD #RHTAB, RO ; INDEX TO BOT HALF OF RHTAB 
7313 O42042 012701 O02146 MOV SSRTTAG, Rl INDEX TO TOP HALF OF SRTTAB 
73i6 204 012021 “oa 1S: Noy (RO) +, (RL ve :PUT BOTTOM OF RHTAB TO TOP OF SRTTAB 
737 opeq B51 394 BNE tu 3 
7. 12700 001742 MOV #RHTAB, RO :PUT TOP OF RHTAB TO BOT OF SRTTAB 
7333 BaSpES BiSae4 2s: MOV (RO)+, (R1)+ ' 
7321 O42064 020037 001406 CMP RO, SECTOR 
7322 042070 001374 BNE 2g 
7353 1 MOV SP)+,R1 ;RESTOR RI 
‘RO RESTOR RO 


f 
fg 
a 
' oo 
| & 
: 
| 
S 
“4 


7343 


BSERESPRURR ASA daa ea cu pues Sea: 


, 
S 


a ee + es 





019000 


177777 


| huLte: 


MACY11 27(1006) 07-OCT-76 14:14 PAGE 144 SEG S144 
GET VALUE FOR SOFTWARE SWITCH REGISTER 
RTS PC 


iMULT BY 6. ENTER WITH DESIRED ® IN "SECTOR 
ASL ae 52 X SECTOR 
mov CTOR, =(SP) 

SECTOR :4 X SECTOR 
aap Ps, SECTOR © 3 (4 XS) 4(2 X S) = & X SECTOR 


TMS ROUTINE Is ries a Thar Tee bab’ SECTOR 
EYL NER * Bite RACK 2. 


RETURN IF SECTOR Not LISTED IN BSE TABLE, ERROR CONDITION. 
i RETURN IF LISTED, SKIP OVER ERROR 


HERE IS A BSE ERROR AFTER A WRITE low 
IS LISTED IN THE SSE INFORMA 


+RUERR: MOV R4, -(SP) »SAVE RY 
BIT SCFMT,HCS1 ;CHECK FORMAT 
BNE 2s *BR FOR 20 SECTOR FORMAT 
aH pe SERRI iia IF ON DETECTED TABLE 
BR 3s" + BEF URN HERE te EE 
MOV sBSE225+8. .R4 ss ELSE_ RETURN HERE 
JSR PC, TERRI :8 IF ON SOFTWARE DETECTED TABLE 
aR 33" :RE HERE IF YES 
1S: MOV (SP)+,R4 :RESTORE RY 
RTS PC :RETURN WITHOUT JUMPING OVER ERROR 
2s: MOV +8. RY 
JSR | TERRI ;SEE IF ON HARDWARE DETECTED TABLE 
BR 8 *RETURN HERE IF YES 
MOV +8.,R4 
ISR Pe ait : Fa one SOF THARE DETECTED TABLE 
BR 1s RETURN HERE iF F NO 
2S: MOV (SP)+,R4 :RESTORE RY 
B00 (SP) ;SKIP OVER ERROR ON RETURN 


i Ee, Pe THE AGOVE SUBROUTINE. “TINDER, HEAD B TRACK AGAINST 


; RE IF 
;RETURN+2 IF NOT FOUND 


terri: CMP (RY), #1 ;SEE IF ALL 1°S 
EQ 1S BR IF YES, Ao? ON TABLE 


oe 








Cle 
? 7-0CT 
Et taule FOR Sor uARE sutton RecrsTER’ | . SEG C145 


Mp (R4)+,CCYL ay iF eye MATCH 
: Thus SE ROY if NEXT CYL WORD 
BR TERR] 
1$: . (SP) 
are 
2s: MP (R4)+,HDA F SECTOR & TRACK MATCH 
sre aR’ oP yee 
TERRI :OR TRY AGAIN 
33: RTS PC 


O_o 


Hg 
a 
™N 
5 
5 


- NE 


Dic 
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-76 13:50 GET VALUE FOR SOFTWARE SUiTCH REGISTER P 


; THIS ROUTINE CALIBRATES ANY PDP-i1 AGAINST 2 CONSECUTIVE 16MS TICKS FROM AN L OR | WREIC 


Us Mee ey DNIER fe ee 


K INTERRUPT IS TURNED OFF. 
18. Te ans Biviseo BY THe CO et oF et ire ry THRU ie Remit Too? = 
{AN APPROX VALUE FOR A POPLI-OS MAY BE O.4MS TO GO THRU THE LOOP ONCE 
:EROM pails op OdNt ON, WHENEVER ACCURACIES GREATER THAN WHAT THE L CLOCK 


DE ARE CESSARY THE EVENT TO BE TIMED IS COMPARED AGAINST 
THe FUPGER OF THE LOOP IS PASSED THRU AND MULT. BY T 
oat Proune 
104413 as SAVREG 
005000 CLR RO s ITERATION CTR 
905037 901 CLR Sut :SUM OF 256 ITERATIONS 
1 CLR +2 
012737 900001 ss: MOV #1, COUNT :G0 THRU CLOCK HANDLER 
500091 001374 MOV $1°SEC [ONLY ONCE 
j MOV s-1 TEMPL SALL 1°S FOR TIMEOUT 
O04 043236 ISR OLKON 
905737 001376 1S: TST TIMUP 
i BNE 25 ;BR IF GOT 1°ST TICK 
005337 007426 DEC TEMP1 
sane ote 5 3 i chock ENR PRE PRESeATe ABORT TIMING TEST 
bbois> Bse5s4 a is ABORT BA 
1 1 001372 2s MOV $1, COUNT cor 1’ST TICK 
1 1 001374 MOV & SEC 
1452 CLR tet ;LO0P COUNTER 
005037 001376 CLR IMUP :CLEAR BEFORE 2°ND TICK 
005737 001376 3$ TST TINUP 
903 BNE 4 :BR IF GOT 2°ND TICK 
042726 ISR PC, LOOP 
000772 BR 3$ 
737 043332 4§: JSR PC, CLKOF :GOT 2°ND TICK, TURN OFF CLOCK 
063737 001 001456 ADD LPENT, SUM 
005537 001 ADC SUM+2 ;ADD POSSIBLE OVERFLOW 
INC RO : 
000400 CMP , #256. iLL ITERATIONS DONE? 
BNE S :BR IF NO 
000337 456 SWAB 


;DIVIDE BY 256 
:T0 GET AVERAGE 





am ce ee oe ee ne ee ree 8 ee ee 


co 


UNIBUS RKO DRIVE DIAGNOSTIC PART 2  MACYLI 27(1006) 07-OCT-76 14:14 PAGE 147 SEG 0147 
DZR6IC.P11  O7-OCT-76 13:50 GET VALUE FOR SOFTWARE SWITCH REGISTER 
7451 oO42446 005000 CLR RO CLEAR FOR DIV 
7452 O424S0 9005001 CLR Ri 
Si ee aE 
oiee 1 o40432 y #16666. ,R2 :LSB DIVIDEND L1b666 US) 
ne ghee Saioes ISR Bea Ber D0 SIV 
7458 O42472 010337 001454 MOV R3/LPTIM STORE, gue ela 
c459 : HIS EQUAL nee ME IN USEC 
7461 042476 104414 G " _— 
ret RTE ABs RF 
7464 
74S :THIS ROUTINE IS EXACTLY THE SANE AS THE ABOVE EXCEPT THAT 
er if TRR ren 5 Me bene PakEN ay Fae BP TENE that epee THiS. ROUTINE 
7469 O42502 104413 YELCAL: SAVREG 
Pao) Basehe BOERS? o1use ROD + UTR Or See TTERATIONS 
ri7e O4es51e2 001460 CLR  - SUM#2 
7474 le O1 000001 001372 SS: MOV 81,C SEE ABOVE CALCLK FOR COMMENTS 
cate 15539 BO aoe NOV al TEMP! 
a 042540 004737 043236 ISR pc, CLK 
7479 : TST T 
7479 tee nite 001376 1S TST MUP 
7481 See 007426 DEC EMP 
pues MeseD TONaOT fype ncaa NO CLOCK 
mes 2564 rater, B3e554 IMP $e 3 
7486 042570 012737 000001 001372 2s: MOV #1, COUNT 
7487 ove576 012737 900001 001374 MOV #1, SEC 
es io pense Bb 336 ¢LR FIMUP 
7491 042614 005737 001376 3$ TST TIMUP 
7492 042620 001005 Ms 
733 O42622 004737 ISR PC, QKCYLD ; THIS Z ONLY DIFFERENCE BETWEEN 
Lae ced a a ae PRECEEDING SUBROUTINE 
Lng) Buses B00730 BR 33° 
2634 737 4S: J PC, CLKOF 
Lae 2640 eee Boruc 001456 LPCNT, SUM 
7500 005537 001460 ADC 2 ;ADD POSSIBLE OVERFLOW 
7504 BMSEED 1316 BNE ss’ 
7506 O42662 000337 O014S6 


. 


aay te 


AAA 


WONWUILC Wrue-O 


AU Sea ane eee Ae IM 


105037 


001457 


DIAGNOSTIC PART 2 
-O0CT-76 13:50 


000017 


Fl 
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GET VALUE FOR SOFTWARE SWITC 


PAGE 148 


14:14 
H REGISTER =a Cie 


CLRB = SUM#1 
CLR RO 
ite R 
LR 
LR RY 
HOV 816666. ,R3 
ISR Na BPID 
MOV R3;LPTIM 
RESREG 
RTS PC 
'WITH SO IN RO, IT TEKES APPROX 400 US FOR AN 11/05 TO GO THRU THIS 
AG Hy US I x Ny 1 Fens GIVING A RESOLUTION OF 0.4MS 
SHEN USED BY _THE “cAlCLk D BE APPROX 40‘ 10)=50(8) 
:WITH AN 11705 if en ea ant aR AN fe i 
Loop: Mov RO, -(SP) ;SAVE RO 
MOV #400, RO 
1S: DEC RO 
BEQ ro} 
2s:  §nc EBenT 
MOV (SP)+,RO ;RESTORE RO 
RTS PC 
:THIS ROUTINE FINDS ATTN FROM A SEEK AND RETURNS 
FATT3: BITB ATTN(RY),RKASOF+1(RS) _;TEST FOR ATTN 
ioe FEE BS Ht oo 
TST LPONT FOR OVERFLOW 
BN FATT OR IF NO AND TRY AGAIN 
1S: 8S, (SP) ; JUMP OVER ERROR 
RTS PC 
NE TO 8 a x WORD PRODUCT 
EG Da 
: LOW IMES a UNLD 8 LOADING 
TYPTIM: 
ees PUT TS ALTIMA ie tac 
ist a weet AF THE PRODUCT 
MOV )+ STHDe --GET THE MSB’S HE 
MOV ete : PUSH ne onto STACK 
:MSB IN STMP1 FROM MULT MACRO 
JSR “CONVERT TO Ascii STRING 
ISR pe SoEeRS :TYPE TIMES 







eR PRE PR a 


7599 


Bee RRebRes 


Stettler 
ONOWLCWM-O 





043044 
043050 


07-OCT-76 


104401 
000207 


UNIBUS RKOG ORIVE DIAGNOSTIC 
OZREIC.P11 13:50 


0S3151 


Avetim: eH? 


AvcsP: SAVREG 
CLR 


27(1006) 07-OCT-76 14:14 PAGE 149 SEG 0149 
UE FOR SOFTWARE SWITCH REGISTER 
TYPE —_,MSG2S :MICRO SEC 
RTS bc 
ROUTINE USED BY TIMING TO OBTAIN THE AVERAGE OF 100 TIMES IN MICRO SECONDS 
RO ;CLEAR FOR DIV 
ctf a R3__;LSB DIVI 
aunt Re" {SE DIVIDEND 
a so el 
TYPE  ,MSG2eS USEC 
RESREG 
RTS PC 
ROUTINE TO CALC 8 TYPE AVERAGE SPEED 
R RO sCLEAR FOR DIV 
ab SUM, R3 i138 DIVIDEND 
MOV Sum+2, Re 
#1 ,RS 13s Div WEDENO 
MOV #1, 
ims aie 19000910) 
JSR PC,M.DPID awe 
MOV R3; STMP1 SAVE QUOTIENT 
CLR RO ;CLEAR FOR DIV 
CLR R2 
CLR RY 
MOV #665. ,R3 ;LSB_DIVIDEND 
MOV sini RS DIVISOR 
ISR DIVTYP 
T ,SG36 ; INCHES/SEC 
RESREG 
RTS PC 


O1vTyYP: JSR 


‘ROUTINE TO TURN L OR P CLOCK INTERRUPT ON 





Gl 









my ey Se as on 


fe a amar eacit. 








= 
S 
fe 


PRRRRUL ARSE ana haere es eae Ae COM Gt at fe 
? 
H 


a a 


e 


= 


eS 


= 
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001376 
007534 


000100 136050 
177777 §=136034 
136024 


001370 001372 
00 


000021 


Hle 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


CLKON: CLR TIMUP 


TST LKF 
BNE 1 sBRANCH IF_P-CLOCK PRESENT 
NOV #100, als *L=CLOCK, ENABLE INT 
1S: MOV #-1, 9PKSB iB “CLOCK ALL 1’°S 
MOV #135, aPKS iE E {nT ct UP, REP INT 
RTS PC ENE Red & RUN 
*KWL1-L & KW11-P INTERRUPT mata 
QLock: CLR TIMUP 
DEC COUNT 
rd 
MOV COUNT 
DEC sec 
it Haup ;SORRY, TIME IS UP 
18: RTI 


SROUTINE TO TURN L OR P CLOCK INTERRUPT OFF 
GLKOF: TST PCLKF 
BNE 


1$ ;BRACH IF P-CLOCK PRESENT 
cLR aLKS L=CLOCK, CLEAR INTERRUPT 
1S R aPKS pipe CLEAR INTERRUPT 
RTS PC 
: THIS ROUTINE GENERATES PARITY FOR THE EXPECTED MESSAGE 
‘ENTER WITH EXPECTED WORD IN TEMP 
: TEMP1 IS ROTA 17 Tings. £0 EACH TIME THE CARRY BIT IS SE 
*R1 IS I . AT THE END OF 17 ROTATES ( TEMP1 BACK TO Gait, 
-R1 BIT O re EXAMINED. IF IT IS SET, INDICATING AN ODD # OF 1 
: THE PARI IT IS NOT SET IN 8 
:IF IT TS NOT SET, INDICATING AN EVEN # OF 1°S ,THE PARITY BIT -. 
;SET IN 1 
SePAR: MOV RO, -(SP) ; SAVE RO 
MOV Ri’ -(5P) SAVE Rl 
MOV #17. ,RO :SHIFT COUNT ER 
CLR Ri :COUNT # OF 1°S IN TEMP 
CLC CLEAR CARRY 
1S: ROL TEMP 
Bcc 2s ;BR IF CARRY CLEAR 
INC R :COUNT # OF Ls 
2s DEC R SHIFT COUNT! 





Ili 
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OZREIC.P11 07-OCT-76 13:50 GET VALUE FOR SOFTWARE SuiTCH H REGISTER r 


7675 043424 000207 RTS = PC 
fe SPR) Re 
ouz426 032777 001000 135504 ScoPis: BIT #649, SSUR ya ERROR? 


o 


BeIRH TORO SERENA PERE BEBO RARER ERIS IS 


AOerae 001103 fois —— HAD ERROR? 
O4sWS 013716 001110 nov 3) 
pixies 41637 001110 1S: MOY (SPD,SLPERR —;SET LOOP ADOR FOR TIGHT SCOPE LOOP 


‘THI TS ROU TaN IS puree BY TYPING A CONTROL-C. 
;1T IS USED TO ALLOW THE OPERATOR TO HLAT THE CPU WHILE INSURING 
; THA 2 i ARE ACOADED & FORMATTING IS VALID BEFORE ACTUALLY HALTING 


O43460 022626 drop: CMP (SP)+, (SP)4 sRESTORE STACK FROM INTERRUPT 
O43462 004737 oO4D4Se JSR PC, SUBCLR 
O43466 104024 ERROR 24 :CERR AFTER 
70 005737 TST UNLD F HEADS UNLOADED 
eee 001432 ss Be 3$ Be rE No 
043476 005737 oj004e TST 42 1 IF NARNUAL OR AUTO MODE 
1403 Beg 1$ :BR IF 
104401 054677 YPE MSG74 :PGM ABORT ING 
042510 o00402 BR 2s 
043512 104401 oS4745 1S: TYPE ,MSG75 ;HALT PENDING 
aa 043516 es: 
7711 043516 004737 o4O4Se ISR PC, SUBCLR 
rele 043522 104024 ERROR 24 ;CERR AFTER SCLR 
7714 043524 012765 000011 oDD000 MOV #SRTSPL,RKCSI(RS) ;START SPINDLE CMD 
7715 043532 013737 OO01412 007426 MOV 10 TEMP iSet TIMEOUT 
7716 O43540 004737 O36S42 JSR C, FRDY FIND RDY 
ral? 043544 104121 ERROR I PRDY NOT SET AFTER ST SPIN CMD. 
7719 043546 013737 001420 007430 MOV T100, TEMP2 ;SETUP TIMEOUT 
7720 043554 004737 037056 JSR PC, FATT FIND A 
7721 043560 104074 ERROR 74 NO aTTN TAFTER ST SPIN CMD. 
Foss 
7724 043562 005737 007354 3S: TST BADHOR ;SEE IF HEADERS VALID 
7725 043566 001466 BEQ 4§ :BR IF YES 
ree 043570 005237 007356 INC HPEND 
7728 043574 012765 1 oo0000 MOV CCLR, (RS) 
77239 0432602 013765 001 000010 MOV SUNIT RKCS2(RS) 
7730 043610 012765 000013 o00000 MOV #RECAL, RKCS1(RS) ;RECAL CMD 





SARE AS MBE, GISROHEE, PT 2 
wre aug mre 


PEP CE SARS ERARR Cra peniaar Oh nn inner PPS Ee P POR AND OAR: 
F4 
2 





104124 
012765 
737 


007416 


Jle 
GET VALUE FOR SOFTWARE SMITCH REGISTER ~~~ ve Wa 


;RESET CYL DIFF/OFFSET & CYL ADDR REG 
MR3 RESP. 


MOV _—s TIO, TEMP $M E ot 
JSR PC, FROY *FIND RDY 
ERROR 124 'RDY NOT SET AFTER RECAL CMD 


#1,RKMR1(RS) ;SELECT WORD 1 
JSR PC; GSTAT 
gir #0: RTZ, HMRe 


vs 
ERROR Sua :RTZ NOT SET DURING RECAL CMD 
64S: MOV T10, TEMP2 :SETUP TINE 
ISR PC, FATT 
ERROR :NO aTTN AFTER RECAL CMD 
MOV 


1(RS) 
MOV RACERS). ;DRIVE® 
MOV aes -DRIVE CLEAR CMD 


Ler Pig get 


J 
ERROR i NO RDY AFTER DRIVE CLEAR CMD 
13k FC, TSTATN TEST FOR ATTN 
inet ERROR 154 ;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD 
IMP FORM ;WRITE VALID FORMATS 
4g: TST 4 ‘= TF MANUAL MANUAL OR AUTO MODE 
Q S I 
TYPE MSG76 ABORTED 
CLR $E0PCT cer UP EOP TO EXIT TO MONITOR 
IMP SEOP 
SS: TYPE ,MSG77 ;CPU HALTED 
io STs ;START OVER IF CONTINUE PRESSED 


-SBTTL UNEXPECTED TIMEOUT HANDLER 


i THIS ROUTINE IS ENTERED IF THERE IS 


: A. NON EXISTANT MEMORY (NO SSYN) 
; B. RROR 
: C: STACK OVERFLOW 
BADTMO: NOV (SP) . RO ;SAVE PC WHERE TINEQUT OCCURRED. : 
Bit -sSi13, aSWR urBbr ERe" pout 
BNE 1$ TYPE 
TYPE EN3 ABORT Te oeSTs XP T.0. 3 PC= 
MOV RO,-(SP) *:SAVE RO FOR TYPEOUT 


an 
TR 
=m 


ORTVE RpAgNOSTIE PART 2 eM 4S OP en ed 14:14 PAGE 153 SEG 0153 


104403 TYP ASCII 
ee Re BS rele 
AAn .BYT S ADING ZEROS 
932777 001000 135104 1S: BIT wSW9, OSHR 
1403 Q 2 
022626 (SP)+, (SP)+ er aren STACK 


BoREIC. 


ii 


re 
ras 
000177 13504e IMP aSLPADR 0 TEST 
ra Wal Rie ES RELL 
77% 032777 O40000 135066 2S: BIT #SW14, ISWR ‘LOOP _ON TEST? 
ee m —_— 
sYES 
7800 poooc0 3S: HALT TIME OUT gee 
rank eet an in Wer i 
st OR ANHIBLT 

7803 jERROR TYPEOUT BY NG THOSE 
7 ian 
7806 O44060 O22626 CMP (SP)+, (SP)+ RESTORE STACK 
7807, O44062 000137 O36062 IMP SEOP1 ‘ABORT TESTS 
Tes .SBTTL MEMORY CHECK ENABLE TRAP 
FeI> GMO Grice? Gorton COlI76 NENERR: NOV (3), TRAPPC ST 
rots 044100 10404 E BNE MEN PARITY TRAP 
7814 O44102 001176 1S: CLR SESCAPE 
7815 O44106 032777 O01000 135024 BIT #SW9, ISWR ntl IF LOOP ON ERROR 
7816 O44114 001001 BNE ‘YES, FORCE STACK AND TRY AGAIN 
7817 044116 oo0002 RTI *ELSE RETURN 
7819 U44120 012706 0011 2s MOV TACK, SP -sINIT STACK 
7Be0 044124 000177 rere IMP SRI PERA fe BN ERROR 
7855 .SBTTL RKO& INTERRUPT HANDLER 
7825 044130 oo0240 INTER: NOP 
peo? buuisd poosuD NOP 
7854 Oia t Se setae MOV (SP), RO SAVE PC WHERE INT OCCURRED. 
rasa padiue Soadcy os1762 NPE ~(m9) me Oo 
reat paaiue 010046 MOV RO, -(SP) ive £0 FOR TYPEOUT 
res ow i50 104403 TYPOS +60 YPE--OCTAL ASCII 
7e34 0441 006 .BYTE 6 >: TYPE 6 DIGIT(S) 

044153 000 "BYTE OO *:SUPPRESS LEADING ZEROS 
7836 ou i54 o00000 HALT 
fee Sisley BooeaD No? 
7840 


-SBTTL POWER DOWN AND UP ROUTINES 


a3 
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OZREIC.P11 07-OCT-76 13:50 POWER DOWN AND UP ROUTINES 


7843 ;POWER DOWN ROUTINE 
O44164 012737 044176 000024 SPWRON: MOV SSPWRUP,PWRVEC ;SET UP VECTOR 
ie Be e 
174 BR oe ;HANG UP. 
;POWER UP ROUTINE 


Deiecs Ques? Bees is tne SBunct tWALT FOR THE INCR 
iSET 


1 1 
GHEI Blera? owes Roy RRPURDNPuRVEC SET ROMER DOWN VECTOR 
grices leva? GoveG ous §=—|—| Oba. TREpEC¥2 ‘ra neers FOR TRAPS 
044236 104401 052152 TYPE »MSG11 REPORT POWER FAIL 
Rises 1 01S312 Re . PFSRT 
O44eSO 000000 SPWRCT: O ;WAIT COUNT FOR TTY 


{DIVISION UTILITY ROUTINE 


:RO-R1-R2-R3=DIVIDEND 
;R4-RS=DIVISOR 


PRPSERREP LI LULL RERORPRERRIA Scud ca ai diialcarlee ort Ee 


:RO-RI=REMAINDER AFTER DIVISION 
:RO-R3=QUOTIENT AFTER DIVISION 
‘ENTER WITH JSR PC,M.DPID 
044252 012746 OO00040 A.DPID: MOV 840, -(SP) sCOUNTER FOR DIVISION CYCLES 
O44256 010446 MOV RY, ~(SP) DER 
044260 010546 MOV RS'-(SP) iLO ORDER TO THE STACK 
O44262 005466 o00002 NEG 2( SP) -FORM NEGATIVE 
044266 005416 NEG asP *VERSION OF DIVISOR 
044270 005666 oo0002 SBC 2(SP) 
044274 061601 ADD aSP,R1 
O44 005500 ADC RO PERFORM INIT SUBT. 
O44 066600 oo000e2 ADD 2(SP).RO 
044304 103445 BCS M.DPSO IF CARRY THEN OVERFLOW HAS OCCURRED 
O44 306 005046 CLR -(SP) :THIS IS A LONGER LASTING CARRY BIT 
310 006103 M.DPYO: ROL R3 
O44312 006102 ROL R2 
044314 006101 ROL Ri 
044316 006100 ROL RO 
ovised 005716 TST asP TEST CARRY INDICATOR 
O44 o01410 BEQ M.DP41 TF TO CARRY THEN ADD, ELSE SUBT. 
044324 16 CLR asP ?CLEAR UP FOR NEXT TIME 
044326 066601 op0002 ADD 2(SP),RI 
044332 905500 ADC RO ;ADD -(DIVISOR) 
O44 05516 ADC asP SET CARRY 
O44 ooo004 ADD 4(SP),RO 
044342 000404 BR mM. GP42 
044344 06050 M.DP41: ADD RS,R1 
044346 Bose ADC R ADD +(DIVISOR) 





2 


DZR6 . 
7833 044350 
7300 0443S2 
7 Riess 
Bitabe 
7a BiSee 
7306 044370 
rae Bare 
7303 044376 
gi0 044400 
ral Owes 
7314 Owns 
a ete 
7317 OY4416 
7318 
7319 044420 
73920 044424 
7321 O444 
7922 
RS - ea Pe 


005516 
060400 


Pi Gy-ott~e ia:s0 


000010 


MACY11 27(1006) 07-OCT-76 14:14 PAGE 155 SEG 
POWER DOWN NB UP ROUTINES a 


ADC asp ;SET CARRY 
M.DP42 abe Basho T_CARRY 
: ‘ ARF 325 ST THE UPDATE INDICATOR 
BEQ +4 iE 0, FOR T 
INC gts Oss IBLE HERE 
DEC &(SP) DEC 
BGT M.DP4O :BR IF SORE” 10 DO 
Bice M. DP4Y 
ADD S,R1 
ADC 
ADD R4,RO 
CLC 
M.DP44: ROL R3 
ADD #10,SP ;ADJUST STACK BY 4 WORDS 
RTS PC 
M.DPSO: ADD #6, SP 
SEV 
RTS PC 


UNTBUS RKO& DRIVE DIAGNOSTIC PART 2 


OZREIC.P11 


35555 a 


SELLS SSeesnopeonen taal J 





itt 
sis 


S 


O44 


07-OCT-76 13:50 


040000 


: 


Sass COE 


RT 


1 


134500 


001102 


001103 


134374 
001106 


134342 
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SCOPE HANDLER ROUTINE 


.SBTTL SCOPE HANDLER ROUTINE 


; LLTKIS ROUTINE CONTROLS THE COOPING OF SUBTESTS: TT KICL INCREMENT 
EAN LOAD THE fee stone) INTO THE DISPLAY REG. (DISPLAY<7:0)> ) 

$ XAND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

jETHE — Plies pag a BY THIS ROUTINE ARE: 


aac =I There TTnarions 


LOOP ON TEST IN SWR<7:0> 


txCALL 
;# SCOPE ;;SCOPE=I0T 
SSCOPE: 
CKSWR ;TEST FOR CHANGE IN SOFT-SWR 
1S: BIT #B1T14,aSWR 11 LOOP ON giRESEN NT TEST? 
-#8e8eSTART OF CODE FOR THE XOR rele aaa 
$xTSTR: BR 55 F RUNNING ON THE = XOR TESTER CHANGE 


THIS INSTRUCTION TO A “NOP” (NOP=240) 


MOV O¥ERRVEC -(SP) tt Cave THE CONTENTS OF THE ERROR VECTOR 
MOV QHERRVEC 3 ;SET FOR TIMEOUT 

nov aul 77060 Reet ae re ERRC VECTOR 

BR s2yr a0 $3 TO THE NEXT ° 


S 
5S: CMP (SP)+,(SP)+ . 3;CLEAR THE STACK AFTER A TIME OUT 
MOV )+) JBERRVEC j RESTORE oh Te ERROR VECTOR 
5 SENT TEST 


BR 
6S: ; ##BNSEND OF tetToe FOR R THE XOR be 


ae 


ON SPEC. TEST? 
aoa STSTNM e's GHT TEST?  SWR<7:0> 
a an tat : 
2s: TSTB © SERFLG ie AN ERROR OCCURRED? 
Riga RMAX,SERFLG 3:MAX. ERRORS FOR THIS TEST OCCURRED? 
BHI 3$ ::BR IF NO 
BIT #81709, ISWR ;;LOOP_ON ERROR? 
BEQ 4§ BR IF NO 
7S: HOV SLPERR, SLPAOR SET LOOP ADDRESS TO LAST SCOPE 
4g: CLRB RFLG :;ZERO THE E 
CLR STIMES sre TH RUPER ce I RATIONS TO MAKE 
BR 1$ ESCAPE T 
3S: BIT #81T11,aSWR sr itery TTERAT TONS 
ist ae iiIF FIRST Pass T ITERATIONS 
INC Font HE InceeNenT ITER abate dieser i 
aap Ag AS Ht i 
1S: MOV #1 ,SICNT .  :SREINITIAL ze FR 1 oa ION COUNTER 
MOV SHICNT, STIMES - ;:SET NUMBER OF ITERATIONS T 
SSVLAD: INCB TSTNM’ Sou TEST NUMBE 
MOVB § S§TSTNM,STESTN ;SET TEST NUMBER IN APT MAILBOX 


SEG 0156 





3 
-0CT- : 7 6a 
ee 76 14:14 PAGE 1S SEG 0157 










UNIBUS RKOG DRIVE DIAGNOSTIC PART 2 MACYLI 27/1006) 
O7R6IC.P11 67-OCT-76 13:50 SCOPE HANDLER ROU 
7379 044650 011637 901108 mov (SP), SLBAOR Bee LOOP BOORESS 
east OSes. pot tae anise con sEsctre ‘ 4 igh FROM ec eOOPESE 
535 ] 11 S Saba SOVER: MOV $lefhr ssa 5 bisa test RureER 
7984 13716 0011 nov , (SP) 33 
7385 704 R : sELXES RETURN 
7386 706 SMXCNT: 2000. ::MAX. NUMBER OF ITERATIONS 
$387 .SBTTL ERROR HANDLER ROUTINE 
7389 g  PEEGRREREI SESE RELEL ES LESELERES REL ENF EE EA GSSIEE SPEARS PLASASESESSS 
7336 : $THI INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
799] ene Eon: NUMBER AND THE ADDRESS OF THE ERROR CALL 
o3e5 me ge oP ioe prov IED BY THIS ROUTINE ARE: 
7394 HALT ON 
7995 #51 NHIBIT TYPEOQUTS 
ae cael a 
7938 #CALL 
7399 <i ERROR N ; ;ERRORSEMT AND N=ERROR ITEM NUMBER 
8001 71 SERROR: 
| 8008 Baris 104407 sie i CKSHR - TEST FOR CHANGE IN SOFT-SuR 
SE ee a ee a Le ee 
B06 ieee l 5hq BIT teiT10; 308 ate ? 
001 BEQ 33NO - SKI 
ee Bare Jorn po1em fee Hi 
DOL! 1S: INC SERTTL 30 NUMBER OF ERRORS 
8010 Oli 01116 MOV (SP) SERRPC :GET ADORESS OF ERROR INSTRUCTION 
801 i DOLL 16 SUB 
801 Fete 901114 MOVB STEN si STRIP - THE ERROR ITEM CODE 
| g01 76 134144 BIT ie IP TYPEOUT 
| gol4 1004 NE :t8KIp TYPE 
8015 737 064710 ISR TYPERR $:G0 TO USER ERROR ROUTINE 
| Eats 104401 001205 ang, TPE (SEALE 
Eat 000001 001230 ~ ## CMPB = sAPTENV, SENV ;;RUNNING IN APT MODE 
801 14 nated pe a BNE es oi :3NO XIE APT ERROR OR REPORT 
Sos bias? Beez dy ISR Hee ie i izes FAT oe GRRE NUNGER 
goes 000 218: .BY 0 
1 000 iat “BY 0 ‘a > 
Bebe Rear 134100 es: Fer Fa , : AALT ON ERROR 
Be, pete One a LAT On Erma 
1 ORSUR bi tPey OR CHANGE IN SOFT-SWR 
Be O4SO+4E 001000 134064 3S: Ee, #81703, aSWR ae ERROR SWITCH SET? 
1 Bieber poise 001110 SEPERR (SP) oe RETURN FOR LOOPING 
B03¢ ard 08722 001176 45 TST SCAPE +: CHECK FOR AN ESCAPE ADDRESS 
1 Q 5 ::BR IF NONE 
| 8034 045070 013716 001176 MOV SESCAPE,(SP)  ;:FUDGE RETURN ADDRESS FOR ESCAPE 
| 


c 
' 











S 


Hs SERER PARSE Utah cau vic uke eee reer tcincits fe 


045074 
O4SO74 922737 


SY 
045106 


ooda6e 


t=) 
i 
8 


Fadhandihandanahandchondn 


> += 6 + 6 0 bb = ~ + + 2 2 p= 


PNIKSLBFSRBPRVGS 
B28 
Ri 





SNe 
Es 


agen 


| 


Bi BE, BERET, PT 2 


036150 000042 


001157 


001231 


as Sk 
etd Se) ee 14:14 PAGE ise 


Ss: 
CMP NDAD, ds42 ACT- i eye accent? 
- HALT :: BB 


+ sRETURN 
- SBTTL FRE ROUT INE 


s SESSSSLLSFSELEALSLELESLALLLLLSLALLSLSSLALSASLASLSASSLALLLLSLELESS 


iY Arie MEL INSERT A MOPGER GF MOLL CHORACTERS AFTER A LINE PEED, 
AINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 


st CONTAINS 

SFILLS CONTAINS THE NUMBER OF FILER CHARACTERS REQUIRED. 

no: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

; #CALL: 

p41) USING A TRAP INSTRUCTION 
TYPE » MESADR ;;MESAOR IS FIRST ADDRESS OF AN ASCIZ STRING 


HOR 
TYPE 
MESAOR 
;* 
STYPE: STB STPFLG 31S 1S THERE A TERMINAL? 
HALT tIRALT HER HERE IF NO TERMINAL 
18: MOV -(SP) cove 
MOV bith ::GET AEORESS OF ASCIZ STRING 
CMPB nee SENV §;;RUNNING IN APT 
BNE ::NO.GO CHECK FOR APT CONSOLE 
BI FES TSPOOL, SENVM ;: TO APT 
Q : NO CK FOR CONSOLE 
MOV 618 i 36 ME ADDRESS FOR APT 
JSR PC, , SATY3 $3 ME TO APT 
eS Bite. SAPTCSUP, SENVM SOB P CONSOLE SUPPRESSED 
BNE 60S : YES, SKIP nea a 
2s MOVB (RO) +,-(SP) i CHARACT 0 BE TYPED ONTO STACK 
BNE 4§ ::BR IF IT ISN'T THE 
Ist ($P)¢ he $3 FA! INAT OR POP IT OFF THE STACK 
ges ADD a2 ahh $3 JUST RETURN PC 
RTI : RETURN 
4§ CHP SHT, (SP) tt BRANCH IF <HT> 
CMPB CRLF, (SP) ;;BRANCH IF NOT <CRLF> 
Pot (SP)+ on (CR) <LF> EQUIV 
TYPE :: TYPE A CR AND L 
SRS SCHARCNT igre CHARACTER COUNT 
5 FR 58 $TYPE 
Et: CHP seitlcrtSene | He Pie ie TT ones ? 
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TYPE ROUTINE 
MOV SNULL, - (SP) +36 ' OF gee ER CHARS. NEEDED 
7$: DECB ~=s«1( SP) S A NULL NEED TO BE TYPED? 
T THE NULL OFF OF STACK 


STYPEC eR Weta MULLS 


Fen 
pk wenden h 


;HORIZONTAL TAB PROCESSOR 


gs: MOVB (SP) ;;REPLACE TAB WITH SPACE 
9g: JSR Pc, $TYPEC 3; TYPE A SPACE 
BITB 87, SCHARCNT +: IF NOT AT 
at + BOB spac 
S (SP)+ 3 OFF STACK 
BR ;;GET_NEXT C T 
STYPEC: STB OSTPS ::WAIT UNTIL PRINTER IS READY 
MOVE s{ ; asTPe ;;LQAD CHAR TO BE TYPED INTO DATA REG. 
CMPB 3—s«a'CR, 2 SP) ::IS CHARACTER A CARRIAGE RETURN? 
BNE 1 ::BRANCH IF NO 
SCHARCNT $3 Yee CLEAR CHARACTER COUNT 
BR $TYPEX IT 
1S CMPB aL Ae SP) ::IS CHARACTER A LINE FEED? 
BEQ STYPEX Beene IF YES 
INCB = (PC) + OUNT THE CHARACTER 
0 tt CHARACTER COUNT STORAGE 


-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


5 5 SERRE REE EEE EEE E EE EERE EEE ELE REE EERE EE EE EEEE EEE EE EE 
iinats TS Roe IS CREEL) NE TO Gene A ato fee Tf F-DEPEND ER TO A ie a 


*#SIGNED DECIMAL 
:#NUMBER IS BOSTTIVE NEGAT SVE — SPACE OR AIRS OFon uit 8 
:#BEFORE THE FIRS! DIGIT OF THE NUMBER. LEADING ZEROS WILL 
*#REPLACED WITH : 
i. _ MOV NUM, -(SP) ;;PUT THE BINARY NUMBER ON THE STACK 
<i TYPDS ::G0 TO THE ROUTINE 
STYPDS: 
MOV RO,-(SP) ;;PUSH RO ON STACK 
MOV R1’-(SP) ::PUSH R1 ON STACK 
MOV Ro’ -( SP) :;PUSH Re ON STACK 
MOV R3,-(5P) ::PUSH R3 ON STACK 
MOV RS; -(5P) 3 RS ON STACK 
MOV #20200,-(SP) § $:SET BLANK SWITCH AND SIGN 
MOV 20(SP);RS ::GET THe NUMBER 
BPL 1$ ::BR IF T IS POS. 
NEG RS $3 THE BINARY NUMBER POS. 
MOVB =, 1 (SP) T HE ASCII R NEG. 
1S: CLR RO AS THe CONSTAN NDEX 
MOV #$DBLK,R3 cETuP T TPUT 
MOVE = #’-—, (R3)+ st SETUP IRST WNARECTER TO A BLANK 
2s: CLR R2 ::CLEAR THE BCD NUMBER 
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MACY11 27(1006) -76 14:14 1 
CONVERT BINARY TO CFEC IMAL TYPE ROUTINE =e Coen 
3: URE PIS BCD DIGIT 
* BF fa 
INC Re pigs THE BCD DIGIT BY 1 
4§: ADD R1,RS 
TST af t icveck IE IF BC wees YE 
Fete if ) ee bol NG ENG 0's? 
S$ (SP) 3 
Bek” i + t NO 
MOVB 1(SP),-1(R3) 3YES--SET THE SIGN ‘ 
g: BIS 4°, Re :: THE BCD DIGIT ASCII 
: BI ry : ITA IF NOT ALREADY A DIGIT 
MOVB Re, tR3)¢ ::PUT THIS CHARACTER IN THE OUTPUT BUFFER 
TST (RO)+ 3s JUST INCREMENT ING 
CMP RO, #10 t cK THE INDEX 
BLT 2s 7:60 DO NEXT DIGI 
BGT 8$ +360 19 at 
a ied +S CHENIGE TO ASCI 
9$ i378 (SP)+ 5s HAS THe LSD THE FIRST NON-ZERO? 
MO -1(SP),-2(R3) Dog: iN THE SIGH FOR TYPING 
=. 7 CORE (R3) + E TERNINA 
re Ce Rs 44 TACK INTO 
Moy (eps? $i Bop crak INTO Re 
Ry Beh ieee Fim I 
TYPE k * = NOW HE R 
HOV (SP), (SP) ::ADJUST THE STACK 
iti RTI , ;;RETURN TO USER 
“1900. ° 
190. 
SDBLK: are 
SBTTL COMMUNICATIONS ROUTINE 
ATYis MOVE, a SFFLG  ssT0 REPORT FATAL ERROR 
barv: HOVE a, SHFLG ::TO TYPE A MESSAGE 
satya: MOVB  81,SFFLG ::TO ONLY REPORT FATAL ERROR 
"MOV RO, -(SP) ;;PUSH RO ON STACK 
MOV R1,-(SP) ;;PUSH R1_ON STACK 
TSTB = SMFLG >;SHOULD TYPE A MESSAGE? 
BEQ S$ ;;1F_NOT: BR 
CHP BAPTENV,SENV ;; P RATING APT? 


ow 
i) 
o- 
wo 


BEPTSPOOL , SENVM j SHOULD SPOOL MESSAGES? 





a2 


F13 


AEBYTL BINARY TO OCTAL (ASCII) AND TYPE 


«Se SR Ek SEE Se SE SEE EA A SE A EE EE HE AE EE ER aE a ERE 
t ATHIS ROUT IN IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
AL ¢ ) NUMBER _AND TYPE IT. 
R HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


* MoV NUM, -(SP) ;;NUMBER TO BE TYPED 
TYPOS *CALL FOR TYPEOUT 
-BYTE N :iNel 19 b FOR NUMBER OF DIGITS TO TYPE 
33 
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IC.P11 07-OCT-76 13:50 APT COMMUNICATIONS ROUTINE 

8203 O45674 017600 O00004 conte MOV a4($P) ,RO :;GET MESSAGE POOR. 
a55¢ Mad peers eat 1$ aot SMSGTYPE ;;SEE IF ‘ABE WL W/ ryey F Pee ron? 
8206 O45712 0013 BNE is 55 TF NOT: WAIT 
8507 pverd4 0 001224 MOV ‘PUT ADOR ite MAILBOX 

1 2s: TSTB Ess CRO) + FIND END OF MESSAGE 
Sate Buessa Season 001224 ate es GAD, RO START 
ee uO BF EELS UE ors 
Bele 010037 001226 MOV RO, GT ssPUT LEN TH IN MAILBOX 
ge13 b1e732 000004 001210 HOV 84; YPE oe TO TAKE MSG. 
Bsip Bieses pecpee, Bopoes Bosoos °8* = oo aacSPDe i 5PUT MSG OOP RETURN ADDRESS 
g5i6 Baesee BRSeRE reread MOV 1 -(SP) ;;PUSH 172778 ON STACK 
8218 045766 004737 045110 JSR PC, STYPE CALL TYPE MACRO 
8219 _ 000000 us: .WORD O 
asst ,°405737 046062 36 TSTB = SFFLG ;;SHOULD REPORT FATAL ERROR? 
8223 Spaz 39 001230 TST NV a4 NING APT? 
S234 Sep rate re fy NOT: Re 
8225 O46010 005737 001210 118: TST SMSGTYPE j SEINISHED LAST MESSAGE? 
BS Rett GE cooom mu der ado 
Go ranted wm 6|OCU ee NP RETURN ADDR 
8229 pease Boseae 00121 INC SMSGTYPE 3; TELL abieY0 TAKE ERROR 
8230 105037 O46062 12S: CLRB  SFFLG CLEAR FATAL FLAG 
8231 OueOe 105037 Oub061 ¢ SLFLG 23 LOG FLAG 
8232 1 CL SMFLG $3 MESSAGE FL 
Be33 O460S2 012601 MOV (SP)+,R1 *:POP STACK INTO Ril 
8234 01 MOV (SP)+'RO ::POP STACK INTO 
BE ie 5 Hy 

SMFLG: .BYTE 0 oe . FLAG 

8237 O46061 000 SLFLG: 0 ;;LOG FLAG 
8238 o46062 nue erg SFFLG: {BYTE 0 ::FATAL FLAG 
8240 000200 APTSIZE= 
8241 000001 ENV=001 
8242 000100 APTSPOOL =100 
9243 000040 
go44 
934s 
Bo4E 
8247 
B5cq 
8251 
8252 
8253 
8254 
8255 
B25E 


M sae LEADING ZEROS 
;;O=SUPPRESS LEADING ZEROS 


:#STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
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HR 
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046302 000002 
eas 
046306 000 
046307 000 
046310 000000 
046312 000000 
046314 000000 
046316 oe 
oe bse 
O46322 


Sees 


Se 


3 
Shs. 
io 


3 


peat . (1006) : SEG 0163 


; ;RETURN 
ss: BE OB tT PLRRINETOR FOR TYPE. ROUTINE 
soon: “BYTE ;}0CTAL OIGIT COUNTER 


SOFILL: .BYTE ;;ZERO FILL SWITCH 
$. ;;NUMBER OF DIGITS TO TYPE 
-SBTTL TTY INPUT ROUTINE 


s LLELRALAAS ERLE LEAR LALA LAAL ALA LALELE RAL LAL EE RALA ELLE LE RAELEL ELE 


* ENABL 


LSB 
STKCNT: .WORD 0 ;;NUMBER OF ITEMS IN QUEUE 
STKQIN: .WORD 0 :: INPUT POINTER 
STKQOUT: .WORD O ::QUTPUT POINTER 
Tk : .BLKB 1 :: TTY KEYBOARD QUEUE 
EVEN 
;#TK INITIALIZE ROUTINE 
*#THIS ROUTINE WILL INITIALIZE THE TTY 
#SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 
?*CALL: 
te JSR PC, STKINT 
3# RETURN 
STKINT: CLR STKCNT ;;CLEAR COUNT OF ITEMS IN 
MOV TKQSRT,STKQIN ;;MOVE THE STARTING ADDRESS OF THE 
MOV STKQIN, Stk >: QUEUE INT THE INPUT 8 OUTPUT POINTERS. 
MOV #STKSRV, DSTKVEC ;; INITIALIZE THE KEYBOARD VECTOR 
MOV #200, detKVEC+2 ;;"BR” 4 
TST a$TKB CLEAR DONE FLAG 
MOV $100, aSTKS >:ENABLE TTY KEYBOARD INTERRUPT 
RTS PC *:RETURN TO CALLER | 
;%TK SERVICE ROUTINE = 
: ¥THIS ROUTINE WILL SERVICE THE TTY KEYBOARD I T 
;#BY Re ING CHARACTER FROM THE INPUT BUFFER PUTTING 
IF R IS A “CONTROL-C" (1C) STKINT IS CALLED AND 
:#UPON RETURN EXIT IS MADE TO THE “CONTROL-C” RESTART ADDRESS (STOP) 
$TKSRV: MOVB aSTKB,-(SP) ;;PICKUP THE CHARACTER 
at atci7?,.(SP) TEE ME TROL Cc? 
BNE if ’ + BRANCH I 
TYPE SCNTLC psTY A CONTROL-C (tC) 
Tet (SP)+ at STARK 
IMP STOP CONTROL C RESTART 
1S: CMP (SP), #7 3318 IT G? 
BNE 2s He IF NO 
CMP SSWREG, SWR 2:15 SOF TSHR SELECTED? 
BEQ 6S ?:G0 TO SWR CHANGE 
2s: 
CMP #1, STKCNT 33;IS THE QUEUE FULL? 
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TTY INPUT 


38: CMP 


318: 


SS: RTI 


I13 
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85 
YF 
ro 
“SS 


~f£-A wi) 
x 
= 
5 


aes *QRG 
“+o 
8 © 
eo 

4 

=z 


STKQIN, #STKQEND :! 
BSTKOSRT, STKQIN :: 


;BRANCH IF _NO 
RING THE TTY 
33 CLEAN CHARACTE 


LL 
OFF OF STACK 


3EXIT 
Hits ITA es” 


YBOARD INTERRUPTS 
STACK 


rE Y-4-5--5-4-5-tab-tp}--t-brlnh-+-5-4-4-1-1-1-lab tyl-tet-t-tah-+tot-t-be-hlelelalalahalelelalelabableheisiaiaieieiel 
; BSOF THARE SWITCH REGISTER 


? #ROU INE 
pi 
$CKSWR 


AND WILL 


IS HANDLER 

THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 

WHEN OPERATING IN TTY INTERRUPT 
SSWREG, SWR 


331S_ THE SOF T-SHR SELECTED 


iteth bak WAITING? 
EXIT 


33 JF NOT, 


tt MAKE wf 7-BIT ASCII 
CONTROL - 


7:IS ITA 
2: IF NOT 
>:AND EXIT 


PUT IT IN "THE TTY QUEUE 


s KEELER LLEAALE LALA AA ALSELAARE LEAL LAAELELAALAAALAL LLL AL LAL LHLLEREE 


. TROL IS 
;*#ROUTINE OR FROM SOFT 
+ #C’ BEI AND 
b$: , 1 
BEQ 
TST (SP)+ 
JSR PC, STKINT 
CLR tks 
MOVB #1,SINTAG 
TYPE , SCNTLG 


GIS 


ING IN 


THE SOF THARE ire H REGISTER BEING SEL 


;;ECHO THE CONTROL-G (tG) 


SEG 0164 
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8427 046700 104401 047537 SGTSWR: TYPE SMSWR :; TYPE CURRENT CONTENTS 

oe O01 000176 MOV SWREG, -(SP) 55 SAVE yaures FOR TYPEOUT 

84 ove? i TYPOC : =-OCTAL ASCII(ALL DIGITS) 

oy 7l2 104401 047550 TYPE  , SMNEW tt T FOR NEW SWR 

8431 046716 OOSO46 19$: CLR “~(SP) ::CLEAR COUNTER 

8432 046720 O0SO46 CLR -(SP) >: THE NEW SWR 

8433 722 105777 132216 7S: TSTB = AS TKS :?CHAR THERE? 

eis 726 100375 BPL 7§ :: IF NOT TRY AGAIN 

8436 046730 117746 132212 aSTKB, -(SP) ;;PICK UP CHAR 

e437 046734 042716 1 BIC ##C177, (SP) ::MAKE IT 7-BIT ASCII 

8439 O46740 O21627 000003 CMP (SP), #3 :;IS IT A CONTROL-C? 

Bat pueoue SOuaa? ou7se0 ate TLC $IYES, Beto “¢ (10) 

B443 IEveE 123787 001135 000001 Cure NTAG, #1 i Ue PTY KEYBOARD INTERRUPTS? 
BMESER Oye 100 132150 oat é i it L ry Ke INTERRUPTS | 

Be Bases 845149 teeta 8S: IMP 408° + FON TROL REPORT 

8448 

8449 047000 021627 o000e5 9S CMP (SP), #25 31S IT A CONTROL-U? 

B4S0 04 001005 3s *: IF NOT 

g451 047008 104401 047525 ad T pScNTLU sFYES, ECHO. CONTROL =U (tu) 

eue5 047016 nite —— BR 198 ::LET’S TRY IT AGAIN 

guee 

8456 047020 021627 oD0015 10S CMP (SP), #1S 3;IS IT A <CR>? 

8457 047024 001022 BNE 16$ He 

8458 047026 005766 oO0004 TST 4(SP) *:YES, IS IT THE FIRST CHAR? 

8459 Ou73e oa BEQ 11$ : BRANCH 

8460 16677 000002 132076 MOV 2(SP), aSWR ::SAVE NEW SWR 

8461 O47042 062706 900006 11S: ADD #6, SP 3CLEAR UP STACK 

eues Babes 1 abe 000001 ; a3 SINTAG, #1 eee AaEE THY KBD INTERRUPTS? 

8464 047060 1 BNE te se IF NOT 

Bubs Ou706e 000100 132054 cae HOV #100, 2STKS F TENABLE TTY KBD INTERRUPTS 

8467 047072 004737 O4S322 165: JSR PC, STYPEC ECHO CHAR 

8468 7076 021627 00060 CMP (SP), #60 *:CHAR < 0? 

9 0471 420 BLT 18S : : BRANCH IF YES 

Bu90 7104 O21 000067 CMP (SP), #67 ::CHAR > 7? 

8471 047110 003015 BGT 185 >:BRANCH IF YES 

BY72 047112 042726 O00060 BIC #60, (SP)+ ::STRIP-OFF ASCII 

8473 O47116 005766 o00002 TST 2(SP) *:1S THIS THE FIRST CHAR 

8474 ov? 001403 BEQ 178 : : BRANCH IF YES 

8475 047124 O06316 ASL (SP) ::NO, SHIFT PRESENT 

8476 047126 006316 ASL (SP) 3; ‘CHAR OVER TO MAKE 

8477 047130 O06316 ASL (SP) :: ROOM FOR NEW ONE. 

8478 O47132 O0S266 oop0002 17S: INC 2(SP) ::KEEP COUNT OF CHAR 

8479 047136 OS6616 177776 BIS 5g(SP), (SP) +: SET TN NEW CHAR 
047142 00066 ? ::GET NEXT 

8481 O47144 104401 001204 18$: TYPE SQUES +: TYPE ?<CR><LF) 

e482 047150 000720 BR 20$ ::SIMULATE CONTROL-U 
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8483 .DSABL LSB 
e484 
ici} ; s SEREKRRRRAREAAASERRRARSRRERRERRARSRE LER ES X3- rahe the 
eat 5AT HIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE T 
8489 tf ” ROCHR 33GET A CHARACTER FROM THE QUEUE 
8490 % RETURN HERE : CHARACTER THE STAC STACK 
8491 i tt uTTH Saar suff STRIPPED 
ae : 
94 0471 116 SRDCHR: MOV (SP), -(SP) DOWN THE PC AND 
Biae 71 pee ooo004% og000e2 NOV 4(SP} 2(SP) 
8496 047162 005066 O00004 CLR 4(SP) +3 THe READY FOR A CHARACTER 
8497 047166 OOSO46 CLR -(5P) ::PUT neu re oh STACK 
8498 047170 D176 047176 MOV #64$, -(SP) :rBUT ON STACK 
8499 047174 RTI 
8500 047176 64S: 
8501 047176 005737 046312 1S: TST STKCNT tt ON A CHARACTER 
Bens BurS0s | Bosaa9 BE 
ov7e04 O46212 C KCNT ed js DECRENENT THE COUNTER 
Be Ree Bee Basie one: eT amano! g's oF ne oe? 
8507 849555 001003 BNE . 
8508 047232 012737 O4632D 046316 MOV SSTKQSRT, $TKQOUT’! RESET POINTER 
8509 047240 o00002 RTI TURN 
8510 jteereceeeeeceecnerrersaestenesbieseeneraeenecaeeaecnennecaeees 
511 jATHIS ROUTINE WILL INPUT A STRING FROM THE TTY 
Sera i : RPTURN HERE ADDRESS Br FIRS T CHARACTER WILL BE ON THE STACK 
515 te ;TERMINATOR WILL BE A BYTE OF ALL O’S 
8517 O47e42 010346 SROLIN: MOV R3,-(SP) ; SAVE 
8518 O47244 OO0SO46 CLR -(SP) 55 CLEAR RUBOUT KEY 
8519 O0472% 012703 047476 1S: MOV aSTTYIN, R3 > ?GE ss 
8520 Ores 0ee703 047520 2s: CHP aSTTYINGee, Ra sr UPTER ER FULL? 
ge54 4 10441 __ ROCHR $385 FF og BNE CHARACTER FROM THE TTY 
85e4 oar Sea 1355t3 000177 10S OHPE hiv? thay HiGET CH RUBDUT 
8525 047270 Nae io cs ?:BR IF NO 
B526 005716 TST (SP) ::1S THIS THE FIRST RUBOUT? 
001007 BNE 6$ >:BR IF NO 
8528 112737 000134 047474 MOVB =: #’\, 95 >: TYPE A BACK SLASH 
10 Arorte serelee nove b-1, (SP) T THE T KEY 
gest By 14 piesis 6S: DEC ' UP BY 
8532 047316 02027 047476 CHP 3, aSTTYIN Hig EMPTY? 
Bey ai Bu 11337 047474 (R3), 98 ep Y STYPEOUT THE DELETED CHAR. 
8535 04 104401 047474 TYPE ::G0 io 
8536 O04 000746 BR 2g +:GO READ ANOTHER CHAR. 
8537 04 005716 SS: TST (SP) ::RUBOUT KEY SET? 


Rr 
® 
2 
2 
8 
8 
= 
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MOVB = &’\, 95 ;; TYPE A BACK SLASH 
Re tes) AR T KEY 
73: CHP 435, (R3) HTS Gieneerek & CTRL U? 
TYPE SCNTLU it fT NCONTROL “y" 
g 3;GO0 START 
i) CMPB #22, (R3) 3318 tp Aa “tR”? 
CLRB =: (R33) ;;CLEAR THE CHARACTER 
TYPE  ,SCRLF :: TYPE A” 
ane bicbhes it IGKUP, 1 SIR ANSCTER 
4S: PRE _ fe tt pe A 
BR g +: CLEAR AME BUFFER AND LOOP 
3S: HO (R2),98 :ECHO THE CHARACTER 
CMPB B15, (Ra)+ CK FOR RET 
BNE LOOP IF NOT 
CLRB = = 1 (R33) +3 RETURN (THE 15) 
TYPE SLF 13 iveE A LINE ne 
TST tSP)+ ss CLER Y FROM THE STACK 
MOV (SP)+,R3 :RESTORE R 
MOV (SP), +(SP) ; ]ADJUST THE STACK AND PUT ADDRESS OF THE 
MOV 4(SP} 2(SP) 3 FIRST ASCII CHARACTER ON IT 
Hoy aSTTYIN, 4(SP) 
9S: Bvt : $3 STORAGE FOR ASCII CHAR. TO TYPE 
2 22 RESERVE 22 BYTES FOR TTY INPUT 


KB 
BB AVUBAR SR SE 
SCNTLG: .ASCIZ /#G/<15><12> ;;CONTROL “G” 
SMSWR: .ASCIZ <15><12>/SWR = / 


SMNEW: .ASCIZ / NEW = / 


- EVEN 
-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


5 SS SEE ESE AE SE SEE AE HE SESE EEE A AE AE SE HE HE SEE SEE AEE HEE AE EE EE HEH EEE ERLE EE 
: ATHIS ye WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 


iS thegt conbacreR 

;*#THE INPUT C TERS WILL BE CHECKED TO INSURED ney oe Le 

; #OCTAL piers. IF AN ILLEGAL CHARACTER IS READ A “?" WILL BE TYPED 
;*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST 

j THEN BE RETYPED. THE INPUT IS INATED BY TYPING A CARRIAGE RETURN. 


+ * RDOCT AD AN OCTAL NUMBER 
1 i RETURN HERE ORDER BITS ARE ON TOP OF THE STACK 
* siLOH ORDER BITS ARE IN SHIOCT 
SRDOCT: MOV (SP), -(SP) j PROVIDE SPACE FOR THE 
MOV 4(SP}_2°SP) : INPUT NUMBER 
MOV RO, -( SP) PUSH RO ON STACK 
MOV R1;-(5P) ::PUSH R1 ON STACK 
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Be oir joni 
8s38 7604 010037 047710 
gs39 aa ea 
ee00 O7el2 Goetoe 
8602 047616 eee 
8603 047620 122716 O00060 
8604 047624 003026 
8605S 047626 122716 000067 
8606 047632 O0e423 
8607 047634 006301 
8608 047636 pre kie 
8609 7640 1 
8610 O4%764e 006102 
8611 7644 006301 
8612 O47646 006102 
8613 7650 042716 177770 
8614 047654 062601 
8615 047656 000756 
8616 047660 005726 
8617 O47662 O1O16E o00012 
8618 7666 010237 047720 
86139 047672 Ol2eb0e 
047674 Ole60l 
047676 012600 
7700 o00002 
04770e 005726 
047704 105010 
7706 104401 
047710 o00000 
047712 104401 001204 
047716 000730 
047720 


SR aR AER eRaR CA e RR 


are 
5 
2 
or 


RRR 
BUFHLO 


F 
? 
z 


O0000 
Se tet t= 


MACY11 27(1006) 07-OCT-76 14:14 PAGE 168 SEG 0188 
READ AN OCTAL NUMBER FROM THE TTY 


TYPE UP THRU THE BAD CHAR. 


# HOY R2,-(SP) PUSH R2 ON STACK 
2 ROY {SP)+,RO i sg i {ot CHARACTER 
CLR Ri ' ii CleAR bard TYoRD 
2s: HOVE {RO)+, ~(SP) ; sPICKUP THIS CHARACTER 
CMPB ss #0, (SP) + MaKe SURE THIS CHARACTER 
BGT 4$, a :IS AN OCTAL DIGIT 
ALT yg ” 
ASL Rl 3; #2 
ROL aa 
ASL Rl 33 %4 
ROL Re 
BIC #407, (SP) STRIP THE ASCII JUNK. 
R00 (SP)+, Rl i300 IN THIS DIGIT 
3 TST (SP)+ tECLEAN TERMINATOR FROM STACK 
my Abstetgey vse Wes 
MOV (SP)+,Re ::POP STACK INTO Re 
MOV (SP)+'RI *:POP STACK INTO R 
HOV (SP)+'RO : }PoP STACK INTO Ro 
4§: TST (SP)+ tt CrEAN PARTIAL FROM STACK 
(RO) i335 A TERMINATOR 
0 


5S: 


. 
i: 


ae “CR” & “LF” 


BR ; TRY AGAIN 
SHIOCT: .WORD OQ HIGH R BITS GO HERE 
-SBTTL DOUBLE LENGTH BINARY TO aati ASCII CONVERT ROUTINE 


Poreensepeuacnqestyscnseusecasteousnnessecavsverecenenseatesees 
THIS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN 
j HUNSIGNED OCTAL ASCIZ NUMBER. 


* MOV SPNTR -(SP) ;;POINTER TO LOW WORD OF BINARY NUMBER 
1% JSR , a8$0820 He L THE ROUTINE 
+ RETURN :THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 
$DB20: SAVREG ;;SAVE ALL REGISTERS 

MOV 2(SP),R1 :;PICKUP THE POINTER TO LOW WORD 

MOV aSOCTUL +13. »RS ;;POINTER TO DATA TABLE 

#12. ,R4 7:00 ELEVEN CHARACTERS 

MOV 8467 R3 33 MA 

MOV (R1)+,RO LOWER WORD 

MOV (R1)+,R1 ;;HIGH WORD 

CLR Re js TERMINATOR 
1S: MOVB Re,-(RS) :PUT CHARACTER_IN DATA TABLE 

MOV RO, Re tiGeT THIS DIGIT 


UNIBUS RKO& DRIVE DIAGNOSTIC PART 2 
Pll 07-OCT-76 13:50 


DZRbIC. 


ee 


Se 


SSREBRPRBE ORES 


BARR RRs 





MACY11 27(1006) 


N1 


07-OCT-76 


14:14 PAGE 1 
DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 


SOCTVL: 


BIC 
ADD 


BR 
BL 


i 


Re, 2(SP) 
RS 
Rt 
Ri 


COUNT THIS CHARACTER 
PBiErr 


iJ if AY 15 Toe Chs 


1h ‘Tae POINTER ane FIRST 
; ASCP ¢ & PUT IT ON THE STAC 
HIRESTORE” MALL REGIST ERS 


Bs TION N THE ASK FOR THE LAST DIGIT 
POSITION THE BINARY NUMBER FOR 
+ THE NEXT OCTAL DIGIT 


t MAKE PHIS CHARS ASCII 
:360 PUT IT IN THE DATA TABLE 
‘RESERVE DATA TABLE 


* KB 
-SBTTL DOUBLE LENGTH BINARY TO bécTMAL ASCII CONVERT ROUTINE 
5 RRR REE EEE HEHE HEHEHE EER EERE EEE EERE EEE EERE 
UNSIGNE 


:ATHIS ROUTINE WILL CONVERT A 32-BIT 
IMAL (ASCII) 


BINARY 
NUMBER. THE SIGN OF THE BINARY NUMBER MUST 


#PNTR, -(SP) 
PC, as$0B2D 


Be 


aa 


ae 
. —_— FE 


aa 
A230 
= 


: 


ghguaagege 


° Son 


;;POINTER TO LOW WORD OF BINARY NUMBER 


$3 TUE FIRST ; ESS OF ASCIZ 
Prowse fh The Data, POINT ER 


33 2 ASC YETRING. ON STACK 
Fm A 
Sole Pl IORI 


5 ;CLEAR PARTIAL 
tiSUBTRACT TEN POWER 


TF TEN Ee al TO LARGE 


; TOP. 
;;RESTORE SUBTRACTED VALUE 


‘ 3;MOVE TO NEXT TEN POWER 


Save Tr PARTIAL TO ASCIT 


;;B8R IF NO 


SEQ 0189 


Bae 


O=- 6 +0 +> <-0--0--——— - 0 <p H- 





eta 
SRTREROBE E : 


ney, 


an 


SUMMONS SeAT Oe ASH SHAS ORS HUD TOON Mss een oes ie 


20 


B14 
sare et OI TasctT EOnVERT ROUTINE 


CLRB 


STNPWR: 





;; TERMINATOR 
7 ;RESTORE REGISTERS 
; RETURN 


31.0609 
;1.0€08 
1.0&07 
1. 0&0¢ 
331.0805 
1.0&04 
1.0€03 
;1.0€02 
1.0601 


STORAGE FOR ASCIZ STRING 


SDECVL RESERVE 
CETTE: + Bus, ubhere BINARY TO AECIMAL ASCIZ ROUTINE 


gr er re ere peg gy 
silos ht MILL oe coven 5 jo-ett UNSIGNED BINARY NUMBER T 


JSR 


it 


et BINARY NUMBER ON THE STACK 

SS OF THE 1ST ASCIZ CHAR.IS ON THE STACK 
;;SAVE BINARY NUMBER 

#3267 Pp eee 


i TD age CONVERT 
Y ALLOW FIVE CHARACTERS 
PI UP POINTER 
; RETURN 


1$: 
.SBTTL TYPE YPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 


; LEELEASESSSS SLES ELLA GEESE EE EERE AAERE SEES EEEALAEEE EEE EEE EEE RE 
;ATHIS, ROUTINE iy USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 


;# MOV 
;# JSR 
SSUPRS: MOV 








;;FIRST ADDRESS OF ASCIZ STRING 


POINTER 











Ficus PER EEEP ERS SSS EE ESE KEBERERECEEEESEE 


2 
oR 
& 


bitetetetotegetey 
0s b= bb he 
CONMUWM Wwe O 


by-otf-me 13:80 


122720 


006068 











T e hUNE AER atta ieee ener CE Ab ING ZEROS aden 





CMPB «ag '0, (ROD 138 TH THIS AN ASCII “0” ” 
2s: RES Na + Backup "i - a 

Wye RO,3$ ii FOR TYPING 
3S: . WORD $3ASC 2 POINTER GOES HERE 


NOY tan (SP) | RESTOR THE STACK 
SBTTL INTEGER MULTIPLY ROUTINE’ 





33 CAR II SPN ES TTS IE Te 
;% 
7% 
:# AOY SE TPT ECan -(SP) 
;# JSR Ate oy 
i RETURN ;;PRODUCT IS ON THE STACK 
:# STACK PRODUCT 
3% -<<<2<«8  ««eece 
e T ’ 
ae hep’ 
SMULT: 
MOV RO,-(SP) :;PUSH RO ON STACK 
MOV R1;-(SP) :PUSH R1 ON STACK 
wy on Sal ; ;PUSH ae 
Shy 12(SP),R1 Gt ue RUST TPL TEAND 
a a ada 
Ae R1 + RBKE THE MULTI tFcAno POSTIVE 
1S: MOV 14(SP),Re ::GET THE MULTIPL 
BPL *%, ;;BR IF PLUS 
DEC (SP) te Py st 
- ee + (sp) 53 ME MULTIPLIER POSTIVE 
CLR RO’ itary FOR TIPLY LOOP 
c Rte - ::DON’T ADD IF MULTIPLICAND = 0 
4$ AOR Ba’ ; POSITION THE PARITIQL PRODUCT AND 
ROR Rl 3; THE MULTIPLICAN. 
ire = ssHAS ALL BITS OF "HE MUILTIPLICAND BEEN DONE? 
(SP)+, (SP) ::SHOULD PRODUCT BE NEGATIVE? 
BEQ $ ::GO TO EXIT IF NO 
G :YES--SO MAKE IT SO 
NEG R1 
cS: 74 fees i; CLEAR ian INFO. OFF OF STACK 
MOV RO, 12(SP) }3PUT THE PRODUCT ON THE STACK (MSB°S) 
MOV R1: 10(SP) ts 
MOV (SP) +, Re ::POP STACK INTO R2 
MOV (SP)+'RI ::POP STACK INTO RI 
HOY (SP) +,RO ::POP STACK INTO RO 





1 


em 
“SF 


$3 


Seeboaee 


ee 


OO0O0O00000 Beneegoyes 
0 00 ae 


; 


ROO RRRRS 


ee 


YE URE, Pe 


ee 


D14 
SUT Me BR alee 


-SBTTL SAVE AND RESTORE RO-RS ROUTINES 


: kSavE 


;# G 
;#UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 


3% 

7 #TOP---( 416) 
5# +2---(418) 
7% +4---R5 

;# ---RY 
3* “a 
3#+] 3 
3#+1e---R] 
;#+14---RO 


SSAVREG: 


: 


Sessssesee 
NUVVAPAZS 


RTI 
;#RESTORE RO-RS 
sHCALL: RESREG 
SRESREG: 
MOV ( 
MOV ( 
MOV ( 
MOV ( 
MOV ( 
MOV ( 
MOV ( 
MOV ( 
MOV ( 
et 


Cocasannn 


SaGEEETEES 


SAAB ZAaRVV 


LD EN ON ON Om 


REyRARAAS 


ck 


-SBTTL TRAP DECODER 


*&THIS ROUTINE WILL PICKUP THE LOWE E INS 
:*#AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:#0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
#60 TO THAT ROUTINE. 
STRAP: MOV RO,-(SP) ;;SAVE_RO 

MOV 2(5P),RO ::GET TRAP ADDRESS 

TST -(RO) ::BACKUP BY 2 


saeeeaaaa 


RO ON ata 
Rl ON STACK 
RS ON STACK 
ON STACK 
RY ON STACK 
RS ON STACK 
Be OF MAIN FLOW 
OF MAIN FLOW 
ee OF CALL 
OF CALL 
TORE PC OF CALL 
TORE PS OF CALL 
T PC OF MAIN FL 
TORE PS OF MAIN FL 
STACK INTO RS 
STACK INTO RY 
STACK INTO R3 
STACK INTO Re 
STACK INTO R 


K IN 1 
POP STACK INTO RO 


PINTS ROUTINE Witt PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION 


s RESLSSLLSRALASRESSLAALLLSSLASLESSAASELSSLALLELELFSLLELALASLSLESS 
RO-RS 


SEG 0172 





em a ea ee 


u 
o 


qc. 


POELECRRELE REV PRM eM LH itl wEMER ie 


“eR 


SF SLEEP 


OS0SSO 111000 


a 


0S0S74 


cn 


o0c004% 000002 


a 


Gciree © Benen 


E14 
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SES 0173 


MOVB (RO) ,RO $306T en a ay 
Y —$¥epmocray,ec | FtNbex"90 Teale 
RTS RO 360 TO ROUTINE 
;:; THIS IS USE TO HANDLE x “GETPRI” MACRO 
STRAP2: MOV (SP),- ;;MOVE THE PC DOWN 
4(SPS, Sip He T DOWN 
;;RESTORE THE PSW 


-SBTTL TRAP TABLE 


pene TABLE CONTAINS is STARTING ADDRESSES OF THE ROUTINES CALLED 
;#BY THE “TRAP™ INSTRUCTION. 


. ROUTINE 
STRPAD: .WORD STRAP 
STYPE ;;CALL=TYPE TRAP+1 (104401) 
STYPOC ;:CALL=TYPOC  TRAP+2( 104402) 
TYPOS ;;CALL=TYPOS TRAP+3( 104403) 
TYPON ::CALL=TYPON  TRAP+5(1 ) 
STYPDS ::CALL=T TRAP+5 (104405) 
SGTSWR ;;CALL=GTSWR © TRAP+6( 104406) 
SCKSWR ;;CALL=CKSWR § TRAP+7( 104407) — 
SROCHR ;;CALL TRAP+10( 104410 
SROLIN *:CALL=RDLIN TRAP+11( 104411 
Cee REG | TRAPSESCLOMNLS) oo 
gpreRee evae tt TRAP+14( 104414 
SCOPIS$ ::CALL=SCOP1  TRAP+15(104415 


T 

TYPE DECIMAL NUMBER (WITH 
GET SOFT-SWR SETTING 

TEST roe ene IN SOFT-SWR 


TTY TYPEIN TER ROUTINE 
aye er wa ROUTINE 
AL NUMBER FROM TTY 


LS ne 
INTERNAL LOOP ON ERROR 


SEG 0174 


F14 


07-OCT-76 14:14 PAGE 174 


MACY11 27(1006) 
TRAP TABLE 


07-OCT-76 13:50 


UNIBUS RKO& DRIVE DIAGNOSTIC PART 2 


OZREIC.P 11 


BE HALTED ONLY BY TYPING CONTROL-C/ 


#2222 CAUTION #####7<CR><LF) 


PART 2/ 


«CR» <LF> /MAINDEC-11-DZR6I-C-PB/<CR><LF> 
(CR><LF>/INITIALLY, DRIVES TO BE TESTED SHOULD HAVE: “<CR><LF> 


(CR><LF>/OTHERWISE, CARTRIDGE FORMATTING AND, OR THE DRIVE/ 


<CR><LF>/MAY BE LEFT IN AN UNDETERMINED STATE/ 


<CR><LF>/UNIBUS RKO& DRIVE DIAGNOSTIC/ 


<CR><LF>/THIS PROGRAM SHOULD 


(CR) <LF>/@. HEADS MANUALLY LOADED/ 


%, “‘ 
w ~ A 
uw ua 
2 4 ~ 
~ w 
wn = = 
ye Yo oO 
ww ~ 
ta 
QQ w- -— |  @ 7;j.ji ~ _ | | 
-_—-—-—UcCcC Gt Oulr ~~ 7 —_—-  7|; v-«t [om ~~ _ - 
ca G2 8 3 j a ee 
--4 
—- °° ee 
a # 


sae te: gaat auth Poe Foes a gaits te 
Sore Re eo ons ere 
Gents Me Mearand aula ane eeraae S 
Si Sand Ds NM asada wcaaddamaacadareasaneen 
LRERREET ENTE Me MMM TREC RE EERE TERETE Cee e TT eeRERES 





5 


G14 


07-OCT-76 14:14 PAGE 175 


SEG 0175 


RKOG ORIVE DIAGNOSTIC PART 2 
Pil 07-0CT-76 13:50 


soRet C. 


: 
es 
= § 
a i 


ee 


-4 


§ 
Bs 
be 


Agee 


ems sx ees POPS Senet 


(CR><LF>/B. CORRECT PORT SELECTED/ 
<CR><LF>/C. WRITE LOCK DISABLED/ 

(CR><LF>/D. DRIVE READY INDICATOR ON/<CR><LF> 
<CR><LF>/DRIVES NOT TO BE TESTED MUST HAVE/ 
<CR><LF>/BOTH PORTS DESELECTED/<CR><LF> 


ASCII 
ASCII 
-ASCII 
ASCII 
ASCIZ 


; Raaee eae 
zB ssee es thes 
= ya = Rina “4 

masz aE aay aah 


Pana AEMEN AR io Momzin 
a 
ae eee ee aged 


4044 is pl pl i lh ph 9h wR RRA, 


EESSSSSSESESSSSESESESESSSSS 


/ 


rs 


<CR><LF>/TYPE CONTROLLER INTERRUPT VECTOR IF NOT 210: 


<«CR><LF>/BE SURE TO PUT SCRATCH PACK IN DRIVE 0/ 
<(CR><LF>/TYPE BUSS ADDRESS IF NOT 177440: 


<CR><LF>/DRIVE(S) TO BE TESTED: / 


ASCIZ 
ASCIZ 
-ASCIZ 
ASCIZ 


paras 

: Te Nes aaa 
Stvacate Gace ozo 
“Waratuacaedereat ee 


Richaui tui eceteh warble ise ON 


CEB OB COD SBBESSESES 


BES eese sess essessesssssessss 


MSGe: 


scab GebLECRPEPRPRPERESEEEEEREoiohibobnsssowswneos 





SEG 0176 


H14 
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DoABIe.PLl Greokt-re 13:80 


~ 
uu 
J 
w 
~ “~ 
a m 
w w 
“aA ~ 
a uw 
ao 
- — 
“N\ “\ m 
> Qa - ta _ 
“ la w - ~ 
oO _ 1 vv) i 
a. w on =) z= tt 
la) a - Hn ~ 
H = = se 
os uf un r w! & ‘ 
= ws us wg . ff 
onl ond ; 
3 = 7 nH 3 BS v<@ 8 
= 3 « —, ro a 3 9 w & 
a , wf Lom uJ 3 
af iO ie & ga 32 Ss. £ @ &%:s 
fea 3 ga eet woe Be ae 
uw uw Z au 
= ) s $2 3 2 Z e 36 8 
n~ n~ n~ ~~ n~ mn n~ ~ ~ n~ 
G; &, 6 so & o G, 6S Gf & 
w a w rd w w w w —-~ ww w 
an n~ ~ _ ae” “~ ~ n~ ~ ~~ & “~ 
a, a, &, Ee & & i § §&§& & 
w w w _ w ~~ oS w = . = w 
™N N ™N N ™N ™N “ ™N N N N N 
ees be 22 3 OR Fa Pa a et 
wn wo 


MSG17: 


Bi 
5a a i e ies ae tis a dace tf iy se 
Pe soleeatcmoeare Osuiccmurs fact fartea Based sige 
ee oedaeey aecneae” Aodaticaee gra ite ae oe aa 


ects ODIO uot Suan 


Ar noe NUaGAS Ron RAR RR RRR AREER OR UREA RRO ROTOR EERO RRR TR 


MSGE 
MSG7: 
MSG8 
14 MSG11 
MSG13: 
MSG14 


avi 
Aj 


i 
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SEG 0177 


S 


27( 1006) 
GE 


11 1 
ICE MESSA 


MACY 
SERV 


AGNOSTIC PART 2 


-76 13:50 


Lane 


(CR><LF>/TIME BETWEEN OUTER LIMIT & HEADS HOME DURING UNLOADING: / 
(CR><LF>/TIME BETWEEN HEADS HOME & SERVO SIG PRES DURING LOADING: / 
<CR><LF>/TIME BETWEEN OUTER LIMIT & INNER LIMIT DURING LOADING: / 
<CR><LF>/TIME BETWEEN INNER LIMIT & OUTER LIMIT DURING LOADING: / 


(CR><LF>/NO CLOCK INTERRUPTS PRESENT, ABORTING TIMING TESTS/ 


(CR) <LF>/BYPASSING ALL WRITE TESTS/<CR><LF> 
(CR) <LF>/AVERAGE TIME FOR 1 REVOLUTION: / 


-ASCIZ 
ASCIZ 
ASCIZ 


MSG19 

MSG20: .ASCIZ 
MSG21: . 
MSG2e: .ASCIZ 
MSG23 


-ASCIZ 
ASCIZ 


046511 MSG18: 


Siisincmatoeiarmelte Orie iat 
eo 


Teer eae enter 
ne Figs a: rade eae sez a 


043516 
os a 
l2 O42Se6 MSG24: 


24845 


Le aa 


RoR OS BR Rare ese ore occa cis ace a RNR RR NTR 
on hoe bee bem ben hen bam hem bee bao ban ban bom bem bam ban pan pan bam ban ban ban ban ban ban ban ban pam ban bam bam ban ban pam bam) 


PAPAYA AMAMM MPM MMMM KOMP MOSS KCK 


SEG 0178 


J14 
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GES 


1 1 
CE MESSA 


MACY! 
SERVI 


07-OCT-76 13:50 


UNIBUS RKO& DRIVE DIAGNOSTIC PART 2 


DZRGIC.P11 


/ 
4 


/ 


4 
i 


<CR><LF><LF>/ABORTING DATA TESTS & GOING TO TIMING TESTS/<CR><LF><LF> 
<CR><LF)/AVERAGE TIME FOR 410 CYLINDER FOWARD SEEK: 

«CR><LF>/AVERAGE TIME FOR 410 CYLINDER REVERSE SEEK: 

<CR><LF>/AVERAGE TIME FOR 1 CYLINDER (0 TO 1) SOWARD SEEK: 
(CR><LF>/AVERAGE TIME FOR 1 CYLINDER (O TO 1) REVERSE SEEK: 


(CR><LF>/AVERAGE TIME FOR 137 CYLINDER FOWARD SEEK: 


(CR><LF><LF>/ALL DRIVES TESTED/<CR><LF><LF> 


-ASCIZ / US/ 
-ASCIZ 


ASCIZ 
-ASCIZ 


MSG2S: 
MSG26: 
MSG27: .ASCIZ 
MSG28: .ASCIZ 


3 : 

GsGiisehanecay Bald Sell tonaarcteet iene & 
Efics aeUGERE fal iobaal NtenelOtnccnarietratal 
acceso dace ued daca danaceaceaccaae 


BAR AAS SPST PPS PT RGARARRFRABSIGSSLSBORARRCRRER AR Bara eww we 


OS MSG2e9: .ASCIZ 


11 


le O4e2S26 MSG32: .ASCIZ 


ban han fam ban pon hon hon hon ban ban ban bon han bon ben bon bon bon bon bon bon bon fon fon fon fon fan fon an fan fan fan bon bon fan bas ben ban bon bon bow bar bos bas Son ban fon bon bon }on Son }on pon jon jen) 
PAPA PMMAO AMP MMMMMMPMMMM MPP MMOMP PMO MO MO KOOP LPM MPPM KOCK” 


—— ——~—___ — . 


SEG 0179 


K14 
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UNIBUS RKO& DRIVE DIAGNOSTIC PART 2 
07-OCT-76 13:50 


DZREIC.P11 


4 
4 


4 


<(CR><LF>/AVERAGE TIME FOR 137 CYLINDER REVERSE SEEK: 
<CR><LF>/AVERAGE FOWARD SPEED BETWEEN CYLINDERS 128 & 2S6: 
<«CR><LF>/AVERAGE REVERSE SPEED BETWEEN CYLINDERS 128 & 256: 
<CR><LF>/NO WRITE CHECK ERROR AT MAX POSITIVE OFFSET/ 
<«CR><LF>/NO WRITE CHECK ERROR AT MAX NEGATIVE OFFSET/<CR><LF> 


(CR><LF>/WRITE CHECK FAILURE AT OFFSET =/ 


-ASCIZ 


MSG33: .ASCIZ 
MSG34: .ASCIZ 
MSG35: .ASCIZ 
MSG37: .ASCIZ 
MSG38 


1516 MSG36: .ASCIZ 7 INCHES PER SECOND/ 


OS34i2 O44S22 MSG39: .ASCIZ 


aes aes soestyuameyt zs rates ie baer esate: 53 
er es 
SOL UCLA con RORGAEAGGAGROROR ER 


Faces cee ARNT NT ARORA ANON NNN ROO NON RNS 
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cee 042524 1440 042510 
054314 045503 3040 044501 
OS4322 052514 TEL, 040440 
330 pepies 04311 Us1505 
336 105 036440 
0S4343 015 O41412 052517 MSGHO: .ASCII <CR><LF>/COULD NOT READ BAD SECTOR INFO ON CYL 410/ 
OS43S0 042114 117 
re oe ee 
OS4. 1 
OS4400 O43116 047117 
OS4408 041440 
0S4414 é 
rate 3 ’ -ASCIZ <CR><LF>/OR ALIGNMENT CARTRIDGE USED/<CR><LF> 
051101 


MSG41: .ASCIZ <CR><LF>/BYPASSING ALL TIMING TESTS/<CR><LF> 


H 
ns 
é 


ene 


5 
i MSGH2: .ASCIZ <CR><LF>/ALL TIMING TESTS TEMPORARILY BYPASSED/<CR><LF> 
3 


an 
oe 2 ee ee 
: 


é 


ie 

= 
RGR 

ERE SNOSRS 


1 
ANG 047510 MSGY3: .ASCIZ <CR><LF>/SHOULD BE BETWEEN 0.140 & 0.429 SEC/ 
1 


a oe 


-ASCIZ <CR><LF>/HALT PENDING...PLEASE WAIT/ 


2 
z 
a 


ey 
3249 
3250 
$2$1 
$eSe2 
es 
$2S7 
QB 
$263 
3264 
9265 
iS 
3268 
3269 
3270 
2 
3273 
9274 054530 
es 
$280 
$281 
Se8e2 
$283 
$284 
$285 
es 
$288 
$289 
$290 
$291 
BE 
$234 
$295 
Ss 
$298 
$299 
3300 
$301 
9302 


Bevery O46 04 O4eS0e 
had psone 052105 O4eSe7 
OS4616 030064 023040 
OS4624 oat O3446e 051440 
1 o51ie oi7e18 MSGH4: .ASCIZ <CR><LF>/SHOULD BE BETWEEN 1.9 & 2.6 SEC/ 
O461eS Oe0l 
O41 052105 O4eSe7 
OS4656 047105 O3044O O344S6 
054664 023040 031040 033056 
ees 051440 ponte 000 
015 le O47S22 MSG74: .ASCIZ <CR><LF>/PROGRAM ABORT PENDING...PLEASE WAIT/ 
054704 051107 O46501 O40440 
71 pape 0Se1 
4 ad 
054734 051501 105 Bee? 
OS4742 0Se 000 


=<" 
Re 
as 
Rs 
oe: 


7 
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SERVICE ME 


SEG 01981 


TIC PART 2 


3:50 


_ 


I 
T-76 


UNIBUS RKO& DRIVE D 
IC.P1l 07 


m cu ~ 
=) i e 
« x = 
Go \ oO 
x = " " ud 
2 ra & rv 
a] > a. 
3 2 = o - = 
oO « < a 
- So 
z e 5 5, -< 
re cae : 
Qa s< e 
a Z : . 
an 2 Fon) 7 
Nn iva " " w 
= 
2 = ~ = 2 Y 
ta ° : : x 
~ - z : : 
3 3 5 S a yi ” 
¢ & aa w wn _ ~ Q 
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/WHILE WAITING FOR CONTR READY OR AFTER CONTR READY REC’D/ 


/DATA CHECK ERROR SET IN RKER/ 
/OFFSET STATUS BIT IN RKMR2 CLEARED/ 
/DID NOT FIND SECTOR O FROM INDEX/ 
/HEADS HOME NOT CLEARED IN RKMR2/ 
“SERVO SIG PRES NOT SET IN RKMR2/ 
/REV NOT CLEARED IN RKMRe/ 


-ASCIZ /OFFSET REG IN A2 NOT = RKASOF / 
“REV NOT SET IN RKMR2/ 
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pou tis 007416 OTé: STESTN, SERRPC, HMRe ,HMRS,HCS1,HCS2, We, WD 1 


fu 
9 
£ 


DT?: STESTN, SERRPC, HMRe,HMR3, HDA, WOCNT, HOWD , TEMP 1 
OTS: STESTN, SERRPC, HMRe ,HMR3, HDC, TOCYL,FRCYL,CALDIF 


DT9: STESTN, SERRPC, HMRe, HMR3, HDC, TOCYL, RHTAB 


OT10:  S$TESTN, SERRPC,HMR2,HMR3,HCS1,HCS2,HDC,HDA 


fu 
9 
£ 
8 
~ 
~ 
~_ 
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‘DT13: STESTN,SERRPC,E.AO,E.B0,£.A1,€.81,H.AO,H.BO,H.AL,H.B1 


Mean 2! 












ge uss 


sf gg 


007442 
Garage DOPE HCS1,HCS2, HASOF , HER, HDS, HDC 
1 1116 007460 OT14:  STESTN,SERRPC,E.AO,£.80,£.A1,E.81,E.Aa2,E.82 
007464 007466 
007472 
eae 4 H.AO,H.B0,H.AL,H.B1,H.A2,H.B2 
HCS1,HCS2, HASOF , HER, HDS, HDC 
Booueo 
lll DT1S: S$TESTN,SERRPC,E.AO,E.B0,E.A1,E.B81,£.A2,E.82,E.83 
007464 007466 
007472 007476 
007450 0074S2 
007 007408 HCS1,HCS2, HASOF , HER, HDS, HDC 
ete 007410 
.SBTTL ERROR DATA FORMATS 
DF 1: 2 
000 .BYTE 2,0 
140 DH2 
000 -BYTE 7,0 
DFe: 1 
000 -BYTE 2,0 
DF3: 3 
000 -BYTE 0,0 
123 DH1 
002 000 -BYTE 2,0 
S34 DH11 
000 -BYTE 6,0 
DF4: 2 
000 -BYTE 2,0 
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10031 064430 061601 DH12 
1003 064432 006 000 .BYTE 6,0 
10034 064434 000004 OFS: 
Biswa & BE oe 
1 000 000 BYTE 0,0 
10038 O64444 061123 DH1 

10039 O64446 oo2 000 .BYTE 2,0 
10040 O644SO 061140 DH2 

10041 o64452 007 000 .BYTE 7,0 
eit 064454 000003 OF&: 3 

10044 064456 000 000 BYTE 0,0 
10045 O64460 061123 OHI 

10046 O64462 002 000 BYTE 2,0 
10047 OeHHe4 061260 

10048 O64466 006 000 “BYTE 6,0 
10049 

10050 

10051 064470 000003 OF10: 3 

19052 064472 000 000 “BYTE 0,0 
10053 O64474 061123 

10088 0644 061 35 000 aBXTE 2,0 
1DOeE pesos o00 BYTE 7,0 
10057 

10058 064504 oDD002 OF14: 2 

10059 002 000 -BYTE 2,0 
10060 064510 063031 DH4O 

1006 4512 006 000 “BYTE 6,0 
ipbe> 

10063 

10064 064514 000003 DF1S: 

10065 4516 000 000 BYTE 0,0 
19068 061123 1 

10067 064522 002 ooo «Cl BYTE 2,0 
10068 O64524 061342 

10068 064526 007 p00 BYTE 7,0 
ibor 064S30 000004 OF 17: 

itors 064532 900 000 BYTE 0,0 
1 Dees 06363 000 “BYTE 0,0 
10075 40 061123 DH1 

10076 O6454e2 002 000 BYTE 2,0 
ioo7e Bese ye PLO 000 BYTE 7,0 
1 oo0sh3 OF 20: : 
10080 064552 000 000 BYTE 0,0 
10081 O64554 061123 DH1 

190g 064556 002 000 sBYTE 2,0 
10088 pedeee see 4 000 -BYTE 5,0 
10086 O64S64 000007 OF21: 7. 
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10087 O&4SE6 000 000 .BYTE 0,0 
10088 064570 061123 DH! 

10083 064572 noes 000 sByTe 2,0 

ee = a 

l 4 bH31 

10093 O6460e 004 000 .BYTE 4,0 

10094 O64604 062434 DH29 

10095 000 .BYTE 0,0 

1 064810 06254 DH31 

} 06461 000 -BYTE 4,0 

10098 O64614 O62652 

19099 064616 006 000 .BYTE 6,0 : 

10101 064620 000007 DF22: 7 

10102 O64622 000 000 .BYTE 0,0 

10103 O&4624 061123 DH1 

10104 064626 000 .BYTE 2,0 

1D1be beuese aes oo ONTE 0,0 

bibs 064634 oe2e4 DH31 

10108 064636 006 000 .BYTE 6,0 

10109 064640 062434 DHe3 

10110 O&4642 000 000 .BYTE 0,0 

10111 O&4644 062547 O31 

10112 O64646 006 000 “BYTE 6,0 

1011 062652 DH34 

10114 006 000 .BYTE 6,0 , 
10116 O64654 000007 OF23: 7 

10117 O646' 000 000 .BYTE 0,0 

10118 O6 061123 DH1 

10119 Ob64662 000 -BYTE 2,0 

10120 O64664 062353 DH28 

10121 Ob4666 000 .BYTE 0,0 

10122 064670 062547 DH31 

10123 064672 000 .BYTE 7,0 

10124 O64674 062434 . DHe9 

10125 064676 -000 ‘ O00 .BYTE 0,0 

10186 064700 062547 | Gat 

10127 O64702 007 p00 ° .BYTE 7,0 

10128 064704 o626S2 OH34 

10188 4706 006 000 .BYTE 6,0 

10131 . [Ae reenea rene neureaneneaneaeeseancanesnennseanensnnananaaeay 
Bis arr hae Ba 

ie * iced 

101 isTH I “ITEM CONTROL TE (SITENB) TO DETERMINE WHICH 
rea Sa po Yee SORTED. It HEN USE “ERROR TABLE” (SERRTB) ’ 
int33 RY 10, EF ie WHAT INFORMATION IS jo BE REPORTED CONCERNING 

101 1 ALLEL LIT LOD ART A set 
10141 O64710 104413 RR: SAVREG 

10142 O64712 113700 001114 MOVB SITEMB,RO sENTER ERROR NUMBER 






inn 
ERROR ENTRY 
T 
L 
EM 


RROR 
BIC 
DEC 
ASL 
ae 
ASL 
ROO 
ey 
Tree 
rs 
WORD 
MOV 
BEG 
CLR 
MOV 
MOV 

) 
Mig | 
AL 
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a 
MOV 
TYPOC 
DE 

YPE 
BR 
DE 
oe 

58 
BNE 
TYPE 
MOV 
TYPE 

WORD 
TSTB 
BNE 
aoe 
Fire 
TST 
BNE 
TYPE 
BR 
RESREG 
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14S: 
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17$ 
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SOREYE YDS OFFE REAGNOSTIE, PART © Mec baRon Rootine” 

10199 965132 932777 010000 114000 BIT sSW12, aSWR : SEE IF ABORT ORV AFTER 20 ERRORS 
ae . 

e381 Bee ae 84789 oo1103 ooo0ey ete SEkric,e2o. Ese ste IF HAVE 20 ERRORS 

ipES agtes HE 901100 MOV eSTACK, SP [ELSE RESTORE STACK PTR 

1de08 065156 137 036034 IMP SEOP AND GO TO NEXT DRV 

l 065162 000207 25s: RTS. PC 

1 065164 d20040 000 : ,ASCIZ/ 7 :2 SPACES 

tea? ; SEF == VOOSA 

10208 

inte ; DEC-11-U0DPA-A-LA 

10212 ; COPYRIGHT 1969, 1970, 1972 

10213 : DIGITAL EQUIPMENT CORPORATION 

10214 : MAYNARD, MASSACHUSETTS 01754 

10215 -ENABL ABS, AMA 

10216 065170 “EVEN 

ese eaneed RO “qaneee REGISTER 

ite ceeeyt RI = %1 ; NAMING 

10220 Re = “2 : CONVENTIONS 

10221 R3 = “3 

: & fois 

l BS = % 

10225 Pc = “7 

ieee ST = 177776 ;STATUS REGISTER 

10228 900014 ‘.TVEC = i) ;TRT VECTOR LOCATION 

10229 900340 0.STH = 340 :PRIORITY MASK - STATUS REGISTER 

19230 900020 0.787 = :T-BIT MASK - STATUS REGISTER 

10231 000003 = FB o003 :TRT INSTRUCTION 

Heed 000006 RTT = 000006 sRTT INSTRUCTION 

1 ; RS Is Y CONSIDERED SAFE, THE CURRENT ADDRESS WORD 

10235 RESIDES IN IT. AFTER A BREAKPOINT, IT IS SET TO ZERO, AND SEARCH 


gs RIT ar SPP He inc ERs RECS) 
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FOR A NORMAL ENTRY 
START ODT - W 
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fs 
00 
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TO TRT VECTOR 


OI OW PROCEED 
STATUS WORD TO TRT VECTOR + & 
CLEAR BREAKPOINT TABLES 


SET TO RTI IF 11720 OR /0S 


STORE IN STATUS 


. 5 
ws & 
Sw pee 
Redsewan Heed 
4 
: i 


e 
- 
te 
Qa 
oO 


és 
id 


Qa - 


& sh UZ o-« -+ 


SSE aS 


| WiscsckETE*SEaS8e 


SiaMbecoeetaoehs 


or ~ _ *e 
mi & 2 F 
-<-o oO . . 


2 i=) 


177716 
066336 
0000 16 
000014 


ee ee --——— ———— 


SS 


i 
: 


w 


2 ee 
fF 


THE 
OF 


H 


TH 
NERATE ADDRESS 
T FOUND FLAG 


UMP 


RY; 


IS 


;SPECIAL_NAME, GET ONE MORE CHARACTER 


;G0 FIND NEXT CHARACTER 


;CORRECT CONSTANT 


; BRANC 
; MASK 


37 
I 


ICIT ORDER OF THE TWO TABLES 0.TL AND 0.URO 


SRS eeE SY 


0.SP1 


5210 


141 








& 


au 


S8c 


BEaREEUo ats 


‘ 


oO 


wu 


S 


i 


Snes 


Le eth hee Ret hee Ree hee oe eee oe koe om hae hae | nd 8 Hk 4 O48 4 4 O46 oo wd we OO 8 rd HG Od wd nd Od Od nd On nd eG Od rd ed wd Od nd Od Od Od wd wd wd 


Se HANDLER - OPEN INDEXED ON THE PC 


Beira ett 


BEBSSSSR8 
WO NMUIS We 


b= 0 0 0-+ & ~ b+ b= 8 &  & + 9 D+ & -< 8- + BD 2 & = & 9 9-2 & = D+ & + + & + B= = Pe 
— 
a 
iv 
~~ CI 


B 


a re 


0 b— 0 -+ Bb b= & + + & 2 & 2 OH hs 


erie mepe ns se nar 
Ue 


7 
eee 


ss ae ee 
tr ore 

_— 

~ 3 

pores 


ro -- 


ag 
76 1 


065742 


0&S24e 
067316 


000001 


0671 
067234 


967056 
010050 
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0.ORPC: JSR PC,0. TCLS 


V R Re € NI ADDRESS IN Re 


’ ; ¥ 

ap ;MOVE ONE BIT TO CARRY 
8¢cs 0.ERR ;ERROR IF ODD NUMBER 
ASL Re ty T WORD 

TST (R2)+ AND_INCREMENT BY TWO 


ie ORE ie PTR Shur 


; 8 HANDLER - SET AND REMOVE BREAKPOINTS 


A.BKPT: TST —R :1F_NO NUMBER. TYPED 
Pee gL HECK mecry 
Bes OO ERR CHES if peo 
asl RG 'RESTORE ONE BIT 
MOV —s«RY. 0. ADR ISET A BREAKPOINT 


BR .DCD 
O.RALL: MOV 80.TRTC,O.ADR1 ;CLEAR BREAKPOINT 
BR 0.DCD 


COMMAND DECODER - ODT11 


: REGIS -R4 MAY BE USED 
: REGISTER RS WILL BE CONSIDERED SAFE 
6.ERR: BIS #1,R5 sCLOSE EVERYTHING 
MOV 8’? RO : ? TO BE TYPED 
ISR 5,0:FTYP : 3 
0.DCD: JSR 5°0.CRLS :T <CR><LF># 
0.DCD1: CLR R4 : RY CONTAINS THE CONVERTED OCTAL 
CLR = R2 : NUMBER FOUND FLAG 
0.SCAN: JSR 5,0. GE RETURN IN RO 
CMP 0 :¢ uty ASCII O 
BHI 0.¢cL :CHECK LEGALITY IF NON-NUMERIC 
mm 86 (Oh.c OO TERA TTY TE-NOT OCTAL 
4 $ 
are #1 $ ac 
ASL RY : 
ASL RY IN 
ASL RY 
Ado RO, RY : PACK RO MREE BITS IN RY 
INC R2 Re HAS NUMER C FLAG 
BR 0. SCAN : AND TRY AGAIN 
O.CLGL: CLR Ri CLEA INDEX 
O.LGLI: CMPB  -—«~RO,O. BO THE COD CODES MATCH? 
BEQ 0.(GL2 
INC Ri 3 yn FOR NEXT SEARCH 
CMP R1, #0. H DONE? 
BHIS  0.ERR : 
BR O.LGLI ‘ecto 
O.LGL2: ASL R :MULTIPLY BY TWO 
IMP :GO TO PROPER ROUTINE 
b.LGOR: 0.WRD OPEN WORD 


v——— ae eee ee ee - 





} 
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| 


| «19351 see Des ree O.CRET ; CARRIAGE RETURN CLOSE 
i Os O.REGT § REGISTER OPS 
ines Deseso Bee : 9. OF ; «LF PaeMoDI Ty CLOSE, OPEN N NEXT 
«(Tease Deeees Seeree O:Back {+ OPEN PREVIOUS © 


oe ne ee + ee eee - ee 


Boer rerio 





Be 
Ee 





ba 
& 
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10357 O&S6ESE 065776 

ines O65650 66054 

ib3>3 Beeps Deedee 

10361 O85666 066240 

ao a 

10364 

10365 

| 

ee 

i 

10398 Beeson TeSStT 
fd 

1037s O6e709 O11 

tiers Seer O1ie00 

10374 O&S712 OO0714 

ibare Seeved | BOBEE 

10377 

10378 

10380 oeS722 004737 

ibses DeesSe | bpaoee 

10383 

10284 

10385 

10386 065734 004737 

10387 ObS740 006726 

ies fee ee 

ibaa Beeres BAge9 

10391 065754 012700 

1 065760 004537 

i 065764 O600744 

i 

1 

1 o6 004737 

1 005745 

DEE774 D007E2 

i 

i 

1 

i 

i 

i 

i 

| 

1 

i 

i 

i 


Ee 
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3:S0 


00057 
067134 


067202 


000040 
067134 


~< 
~ 
~- 
tw 
a 
— 
5 
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2 
a 
$ 
: 
i 


0.OFST 
0.WSCH 
§- Eke 
*BKPT 
0. PROC 
O..G. = -0.LGDR 
: PROCESS / - OPEN WORD 
b.wRD: TST R2 
Q 0. WRDA 
MOV RY, RS 
O.WRD1: ASR RS 
0.ERR2: BCS 0. ERR 
my Bs 
MOV ,RO 
JSR 5,0.CALV 
0.WRDA Bc Oi Re 
er 0.WRDL 
: PROCESS CARRIAGE RETURN 
8. CRET: JSR PC, 0.TCLS 
0.6c0 
: PROCESS <LF>, OPEN NEXT WORD 
$.0P1: JSR PC.O.TCLS 
TST + 
0.0P2: JSR 5. 0.CRLF 
MOV RO 
JSR =, 6. Cabv 
MOV #'7.RO 
ISR 5,0:FTYP 
BR 0! WRD1 
: PROCESS t+, OPEN PREVIOUS WORD 
b.BACK: JSR PC,0.TCLS 
, TST -(R5) 
BR 0.0P2 
: PROCESS 0, COMPUTE OFFSET 
b.0FST: ASR RS 
BCS 0.ERR2 
ASL 
MOV 8’ RO 
JSR S,0:FTYP 
SUB RS,RY 
aa 
RY 
MOV RY, RO 
MOV RY’ R2 


; O OFFSE 
Sean ETFECTIVE ADDRESS 
: B PROCEED 





;LGL MUST EQUAL 2X CHLGT ALWAYS 


ETE ltd? —— 


Fook A 1 Se 
UMP I 


‘60 BACK TO MAIN-LINE 


dogs 3 LOCATION 
RETURN T PY DECODER 


;CLOSE PRESENT CELL 
GENERATE NEW ADDRESS 


;GENERATE NEW ADDRESS 
G0 DO THE REST 


;GET LOW ORDER BIT 
5 ERROR IF CLOSED 


; 1g BIT OFFSET 
SAVE RY 


SEQ 0201 


ee ee 
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C.P1l 13: Se 
10413 O&6026 004537 066772 JSR = 0. CAD :NUMBER IN RO - WORD MODE 
1B . : ;DIVIDE By TWO 

1041 103402 BCS 0.0F1 *BRANCH IF ODD 

10417 O&6040 004537 066772 JSR 5,0.CADV j NUMBE N RO - BYTE MODE 
10418 066044 000137 O&SS44 | 0.0F1: JMP 0!0C01 Rares Ih 

10420 : SEARCHES - SMSK 

ies ; SMSKe” Wace ie a 

l : SMSK+4 HAS T 
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{ 3 00S201 
104 000401 
ims 005001 
ie ees Bick 
10429 013702 
iis 37 
1 101217 
Be Bie bees 
iB 
1 1 
10438 Soi 
10439 040400 
et ue ae 
10442 040503 

001016 


b— b* b+ b= Bb bb 2 B-4  —  — b— &  — b— = -  h  —= e p 


reer ese ESTEE 
Cine cman 


22 
a3 


BE2ee? 
Salton 


22 
a3 


2 
wo 
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GE sae 


Bs 


eee 
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8 
= 
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065236 
065234 


065240 


177400 


067255 
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07-OCT-76 


TYPE ERROR ROUTINE 


4 EFF: 


0.WSCH: 
0.WDS: 
O.ERR1: BEQ 


0.WDSe: 


0.WDS3: 


0.WDS4: 
O.EFF1: 


: PROCESS G - GO 


b.co: 


genas 


wmoww 
baat et 
Omnnaono 


SBSE s Swsu SuSE Sm 


INC 


CLRB 
ASR 


BCS 
ASL 


HBO Rn. ew 
Bo 203 § 
oe we 
= 


225- 
D2! a 


NES Boho cote pte: 
BBR IRs som ROBo Goes 
s" 8B 


BBB BSossaAecse 
ai? 
8 
) 


cee 
B28 


14:14 PAGE 203 


SEG 0203 


;SET EFFECTIVE SEARCH 


;SET WORD SEARCH 

CHECK FOR OBJECT FOUND 
ERROR IF _NO OBJECT 
SET ORIGIN 


MASK 
SAND COMPLEMENT IT 
8 THE SEARCH ALL DONE? 


: ot OBJECT 
‘BRANCH IF EFFECTIVE SEARCH 
sEXCLUSIVE OR 

IS DONE 


NO MA 
pews ,R4, AND RS ARE SAFE 
TBE ¥ TO TYPE 
ere ss 
Ape TO RO 


ET CONTENTS 


Pe CONTENTS 

: RESTORE RY 

* INCREMENT TO NEXT CELL AND 
; _ RETURN 

> IS (X)sk? 

> TYPE IF EQUAL 

3(X) TO R3 
+ (X)4X 
5 (X) 4X42 

“IS (X)+X+2=k? 

*BRANCH IF EQUAL 

“WIPE OUT EXTRANEOUS BITS 
*EXTEND SIGN 

;MULTIPLY BY TWO 

:ADD TWO 


;ADD PC 
;IS THE RESULT A PROPER REL. BRANCH? 


;DISALLOW PROCEED 
ieee LOW ORDER BIT 
sERR OR IF ODD NUMBER 








J16 
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10479 066244 010437 065226 MOV R4, 0. UPC ;SET UP NEW PC 
10480 066250 112737 000340 177776 MOVB  80.STM.ST :SET HIGH PRIORITY 
10481 066256 004537 066724 JSR 5,0.RStT ‘RESTORE TELETYPE 
1 066262 i 087254 0. TBIT: CURB 0:T ‘CLEAR BOTH 
1 Obb266 5230 BIC #0.TBT,O.UST ; T-BIT FLAGS 
10484 01 176742 065246 MOV 30.ADRI,O.UIN SAVE INSTRUCTION 
1048S 066302 013777 067316 176732 MOV 0.TRTC,90.ADR1 REPLACE WITH TRAP 
1 Be Ob6319 b1g600 0.G02: MOV (SP )+, RO : RESTORE 
1 le 012601 MOV (SP)+'Ri : 
10488 066314 012602 MOV (SP)+'R2 : THRU 
10489 066316 912603 HOV (3P}+,R3 
it a pepsse bt Sebe MOV (5P)+'RS : 
1 066324 012606 MOV (SP)+'SP : AND SP 
1 1 065230 MOV 0.UST}=(SP) : AND STATUS 
1 066332 013746 O6So26 MOV 0. UPC; -(SP) : 
1043 066336 000006 O.RTIT: RTT :CHANGED TO RTI FOR 11/20 AND /OS 
10497 : PROCESS P - PROCEED 
10438 : ONLY ALLOWED AFTER A BREAKPOINT 
10500 066340 105737 067255 8.pROC: TSTB O.P sCHECK LEGALITY OF PROCEED 
ipens peesue SoeBSS ne zoce Se ee SCLEAR PROCEED FLAG 
10503 066352 005702 TST R2 :WAS COUNT SPECIFIED? 
10504 066354 001 BEQ 0.PRI : 
10505 066356 010437 oBse44 MOV R4,0.CT ?YES, PUT AWAY COUNT 
10506 066362 112737 OO0340 177776 O.PRI: MOVB  &0.STM,ST “FORCE HIGH PRIORITY 
10507 066370 004537 066724 SR 5.0.RStT ; RESTORE Y 
10508 066374 112737 177776 0.C1: #0.S7M, ST :SET HIGH PRIORITY 
10509 O66402 105237 067254 INCB OO. :SET T-BIT FLAG 
10510 O6640& 052737 065230 BIS 80.TBT,O.UST | ;SET T-BIT 
10511 066414 000735 0.602 
10513 : BREAKPOINT HANDLER 
10514 : @ TRT BREAKPOINT CAUSES 0.BRK TO BE ENTERED, WHICH SAVES 
10515 : VARI AND ENDS, FINDS OUT IF THE BREAKPOINT WAS LEGAL, 
10516 ; AND GIVES CONTROL TO THE COMMAND DECODER 
10518 O66416 012537 D65226 b.BRK: MOV (SP)+,0.UPC ;PRIORITY IS 7 UPON ENTRY 
10519 O66422 012637 0652 MOV (SP)+'0.UST :SAVE STATUS AND PC 
10520 O66426 004037 066634 0.BK1: JSR 0,0.S0R -SAVE VARIOUS REGISTERS 
10sel Deb 3e 105737 067254 TSTB 2S s«éO: T i CHECK FOR T-BIT SET 
1 066436 001311 0. TBIT :JUMP IF SET 
10523 013777 O6S24%6 176574 0.UIN,@0.ADRL ;:REMOVE BREAKPOINTS 
10524 105737 065232 TSTB =O. PRI :CHECK IF PRIORITY 
10525 100003 0.8K2 : IS AS SAME AS USER PGM 
10526 O66454 113705 065230 MOVB  0.UST,RS :PICK UP USER UST IF SO 
10527 O66460 600407 BR 9..BK3 "AND DON’T COMPUTE THE PRIORITY 
10528 Ob6462 113705 065232 0. BKe: 0.PRI,RS :OTHERWISE PICK UP ACTUAL PRIORITY 
10529 Ob6466 000257 ccc ; sCLEDR CARRY “its 
ore . ORDER 
1pe34 BEENe 106008 RO Re ; I 
ipess peeuve | tpeape Re ie Sit 
10534 066 110537 177776 0.BK3: nove Re, ST :PUT THE -etatue AWAY WHERE IT BELONGS 


5 
a 


A 


Sag La aarp cya 


aaa 
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Ob6504 013705 065226 Nov 0, UPC, RS sGET PC, IT points TO THE TRT 
Obb5 12 Basa? D652 MOV RS, 0.UPC “FROM THE USER’S PC 
Obb516 be0537 524 CHP R50. AOR! ; COMPARE WITH LIST 
SEEeS poWe3? a pee 1eR 2.0.57 sSAVE TELETYPE STATUS 
Oppo 4 12704 Db7e60 MOV #0.8D,R4 ERROR, NOTHING FOUND 
12703 1 MOV #0.8041,R3 
066544 O0us 37 067120 JSR 5,0, TYPE ;OUTPUT “BE” FOR BAD ENTRY 
pepees need 000020 065230 BIC #0/TBT,O.UST  sCLEAR OUT ANY POSSIBLE FAKE T-BIT 
066560 key neem +~< BR 0.83 : AND CONTINUE 
pepece “Spy BES §-E] ; JUMP IF REPEAT 
O66570 012737 900001 oEs244 HOY #1,0.CT sRESET COUNT TO 1 
Ooses? Ges ?e JSR S,0.SvTT Cave 1E ania: STATUS, RY IS SAFE 
“Bbb1 ? ,0.FTYP ;TYPE ” 
gait ton Rae i BRGo «i TFraBhess oF nen 
O&6622 004537 066772 0.83: ISR 5,0.CADV : TYPE AODRESS 
Beee SB B08 i rei, 065540 JMP 0.DCD :GO TO DECODER 
: SAVE REGISTERS RO-R& IN INTERNAL STACK 
Ob6634 012637 O67ese b. SVR: NOV {SP)+, 0. XXX sPICK REGISTER FROM STACK AND SAVE 
Obbb M4 016706 065224 ov 40. USP, SP :SET TO INTERNAL STACK 
Seeeee Bt OSe HH: MOV RY; -(SP) : REGISTERS 
066654 010346 MOV R3,-(SP) *1 
066656 010246 MOV R2,-(SP) : THRU 
O66660 010146 MOV Ri’ -(SP) : S 
Obbbbe OL 376 067252 NOV 0, 54x, ~(SP) *PUT SAVED REGISTER ON STACK 
066570 o00200 RTS RO 
: SAVE TELETYPE STATUS 
Biers ee irreea Gerese Sse: noe o.Feee SSE Hae TEs 
rae theaae 1 CORE 8 Re R’ ere ENABLE AND MAINTENANCE 
066712 105037 177564 CLRB  0.TCSR : BITS IN BOTH C/SR 
066718 004537 067226 ISR 9,0. CRLF ‘TYPE <CR,LF> 
} RESTORE TELETYPE STATUS 
7 7226 B.RSTT: JSR 5,0.CRLF -<CR,LF> BEFORE RESTORING 
bets ios37 TS7EER STB 0. TCSR ;WAIT READY ON PRINTER 
BEEvaN Boidas CONC? 177560 Bit SHGOD,0.RCSR HECK BUY FLAG Ot REMOEEy 
066746 105737 177560 TSTB 0.RCSR :WAIT READY 
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10591 066752 100375 
10S9e 066754 113737 
10893 066762 113737 
ip 066770 

iss 

10S97 

1pe99 772 010246 
1 Beer 7a 1 
10601 067000 Q12746 
10602 067004 010002 
10603 067006 O4e70e 
inn porns 061602 
10606 067016 dobsag 
10607 067020 006200 
10608 067022 006200 
10609 067024 Oe04e7 
10610 067030 101365 
10611 067032 042700 
10612 067036 062600 
10613 067040 110044 
Ideis De7ode Gos? 
ibele Devos bizebe 
10617 067054 000205 
10618 

10619 

pes 

10632 067056 105737 
10623 067062 1 
10624 067064 11 
ie 067070 OO04S 
idee? 067100 001768 
10628 067102 122700 
ideo 67110 122760 
desi Ge71i9 01760 
10632 067116 000205 
ie 34 

163s 

10636 

10638 0671 020304 
bess Devise Toshes 
10640 067124 112400 
10641 067126 004537 
10642 067132 000772 
10643 

10644 

10645 

10646 067134 105737 


12:50 


067256 177560 
0672S? 177564 


067315 
000060 


177770 


177600 


000073 


067134 


177564 
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; ON READER 
0. CSRI, Q.RCSR ;RESTORE 


BPL 
0.RSE1: MOVB 
MOVB 0.CSRe, ,O.TCSR ; THE STATUS REGISTERS 


RTS 
: TYPE OUT CONTENTS OF WORD OR BYTE WITH ONE TRAILING SPACE 
WORD IS IN RO 


b.caDv: MoV /-(SP) 
MOV Re alr ee RY BUMPER” START ADDRESS 
sins nov 0, = (SP) at “CONSTANT ASCII O 
— ae wie #177770, Re OCTAL CHARACTER 
ROD g5P, Re. ;CONVERT To ASCII 
ASR RS’ ate Hye meee 
ASR RO ; RIGHT 
ASR RO THREE WHOLE PLACES 
CMP R4, #0. BUF +1 ; DONE? 
BHI 0.5PC NO 
BIC #177776, RO GET LAST BIT 
ADD (SP)+.R0 ; CONVERT TO ASCII 
ve ee |g A ae 
ISR 5.0. TYPE’ :TYPE WHOLE STRING OF CHARACTERS 
nov (epi 4 Re RESTORE Re 


; GENERAL CHARACTER INPUT ROUTINE 
; CHARACTER INPUT GOES TO RO 


’ 
8.GET: TSTB 


0.RCSR ;WAIT FOR 
Sov ROB. FO bcer A CHARACTER 
JSR 5.0.Fty? *ECHO CHARACTER 
C #1 RO Fe OFF PARITY FROM CHARACTER 
Q 0.GE GNORE NULLS 
CMPB —s-«-#40.. RO He FOR SPACES 
eee 0,GET tera FOR SEMI-COLON 
BEQ 0. GET :IGNORE THEM IF FOUND 


GENERAL CHARACTER OUTPUT ROUTINE 
: S OF FIRST BYTE IN RY, 
ADDRESS OF LAST BYTE IN R3,(R3)> (RM) 


s 
A. TYPE: CMP RB. RY 


sCHECK FOR COMPLETION 
BLO 0. TYP1 : EXIT WHEN DONE 
MOVB  (R4)+.RO ;GET_A CHARACTER 
JSR S,0.F TYP :TYPE ONE CHARACTER 
BR 0’ TYPE ‘LOOP UNTIL DONE 
: TYPE ONLY ONE CHARACTER (CONTAINED IN RO) 
b.FTYP: TSTB O.TCSR ;CHECK STATUS 


SEG 0206 
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10647 067140 100375 BPL 4 a : WAIT UNTIL READY 
iBese Serise LIARS? bboete rue GS. EEL AMEE 
10651 067154 113746 o00044 NOV ae44, -(SP) YES, INIT THE COUNT 
067160 105737 177564 O.TYP2: TST 0.TCSR 
067164 100375 BPL 0. TYP2 
1 Ob? 166 105037 177566 CLRB 0.1DB ;GENERATE NULL FILLER 
re BeSi56 Agaasé Bee BSE pe 
10657 067176 005726 TST (SP)+ :POP STACK 
10658 067200 000205 O.TYP1: RTS RS 
10665 CLOSE WORD OR BYTE AND EXIT 
10661 : UPON ENTERING, Re HAS NUMERIC FLAG, RY HAS CONTENTS 
1BEES = 067202 006205 b.TCLS: ASR RS ;GET LOW ORDER BIT 
10664 07204 103405 BCS 0. Tc _ JUMP IF ALREADY CLOSED 
10666 067210 005702 TST R2 ;IF NO NUMBER WAS TYPED THERE IS 
10667 O672l2 001401 BEQ 0.CLS1 "NO CHANGE TO THE OPEN CELL 
ie Bele wey aan ee on 
{pea BEsseB Bocas OTe: TS ~(SP) sPOP EXTRA CELL FROM STACK 
10671 067222 000137 o6SS24 IMP 0.ERR "AND SCREAM BLOODY MURDER 
10673 : O.CRLF - TYPE <CR,L 
10674 : O:CRLS - TYPE <CR, LF 
10676 06722 912703 067263 b.CRLF: HOV 40, .CR+1,R3 LWA <CR,LF> 
10678 067234 B12705 067264 O.CRLS: MOV #0. CR+2,R3 sLWA <CR,LF># 
10679 067240 012704 067262 0.CRS: MOV #0.CR,R4 : 
10680 067244 0604537 067120 JSR 5.0. TYPE > TYPE SOMETHING 
10681 067250 000205 RTS RS 
1 067252 000000 O.XxXK: . 0 TEMPORARY STORAGE 
10684 067254 000 0.7: “BYTE 0 i op taBIT FLAG 
1D685 067255 000 0:P: "BYTE ;PROCEED FLAG = = 0 IF PROCEED NOT of LOWED 
bee? 5 067256 000 -0.CSR1: .BYTE 0 SA VE CELL - R C/SR 
10688 067257 000 0.CSR2: .BYTE 0 :SAVE CELL - T C/SR 
1bES3 : EVEN 
10631 067260 o42502 0.BD: RD “BE 
10693 067262 015 6.cR: .BYTE O15 ; <CR> 
10694 067263 012 BYTE O12 > <LPD 
10695 067264 0S2 BYTE °% ee 
10697 067265 0S7 6.LGCH: .BYTE °/ a 
10698 067266 015 ‘BYTE 1S : CARRIAGE RETURN 
10699 067267 O44 "BYTE '$§ : § 
Oot bers? ve aye oof2) (of tu 
10702 5555 reid ‘BYTE ‘e : + 
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10703 067273 13 
10704 067274 li? 
1070S O&7=75 le? 
10706 O&7e76 1os 
10: = 0&7, res 1oe 
10% 7300 L120 
izice 000014 
18711 067301 123 
lo7le 7202 leo 
10713 067303 115 
ioTis 7304 000 
10715 7305 O00 
L071 O&7SOE ide 
19717 OGOO00E 
10718 
10735 067307 
Lieu 0&7315 
S721 7215 O40 
o722 
O7e3 © 
wi DE73: 16803 
O725 
o726 
O7e7 
C728 D&S210 
wees 065210 000900 
0730 O6S2ele 900000 
0731 065214 900000 
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